creez vos 
caraeteres 
point 
par point ! 

Hard-copy 
graphique 




ten direct du 
microprocesseur 



aes trues 
, pour mieux 
1 maitriser 
* votre Apple 



4 

i 



H- 4 - UnutiUI * Pramltri onni 
t Jonvter - 2 Man 
w r fi - 1 a fs - 30 F 




Le premier logiciel de TREMPLJN MICRO 
est signe CLAUDE AUBRY et c'est : 



MINI 




AMPER-INTERPRETEUR 



BASIC SOURIS 




Vous aimeriez en savoir plus... lisez plutdt un extrait de la 
premiere page de cet excellent logiciel, et n'hesitez pas a le 
commander, en utilisant le bulletin de la page 66. 



PRESENTATION DE MINIE 



BONJOUR ! Vous programmer en BASIC ou en assembleur et vous voulez 
utffiser la souris APPLE simplement, mais effica cement : creer des menus 
deroulants ou de type boTte, g&rer des fenetres style MACINTOSH, etc. 
MINIE est faite pour vous, . . Avec une vingtaine de commondes ajoutees au 
BASIC ou accessibfes depuis J'assembleur, vous r£aliserez ce que font les 
logiciels les plus prafessionnels et ceta sons aucune diff iculte. 

Pour utiliser MINIE, vous transfererez tout d'abord le programme MINIE, 
sur [a disquette destrnee a votre application h I'aide du programme 
TRANSFERS Vous inclurez dans votre programme HELLO la ligne 
sufvonte : PRINT CHR$(4);"BRUN MINIE/' 

D&s lors, MINIE sera 6 votre service. Vous communiquerez avec elle 6 
I'aide dune interface logicielfe : L'AMPER-INTERPRETEUR MINIE-MUM,, si 
vous &tes sous BAStC ou Le Machine Langage Interpreter MICKEY, si vous 
&tes en assembleur 6502. 

Une instruction MINIE debute toujour* par la lettre & (AMPERSAND). 

Le & est suivi d'gn code, c est-a-dire : UNE LETTRE ou UN MOT ckkrivant la 
fonction de la command©. Par exempJe W ou WINDOW pour fen-etre. Selon 
le cas, des parametres suivent ou non fe code, nombres el (ou) chalnes, 

Seule la premiere lettre du code de cornmande est significative... 

PRIX TTC : 170 F =^^=^===^^^^^_^== 
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micro 
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AppU *l ProQOS (noma *i 
togoil wnt d»i morquw dapo* 
iHi d'Apjrft Computer, tac, 



BIMESTRi EL 

Le num&ro . 30 F 
Abonn-em*nt d'un an I BO F 
(6 numiros) 



EDITIONS JIBENA 

Diractlon-RbdpcHon : 

Editions JIBfNA 

Guy-HACHETTE 

Lo Petite Motte — &enlll± 
86100 CHATELlERAULI. 

puBucrri t 

Joaltv (mime numfro) 

Commbifion porllair* B 

Oerrvande en cours. 
L« ibvubs qui dioraiiMnf a? tin* 
recllanwn) au urvktdu lacto-jr, 
•it fm I'abligjeaTrt pat 6 glor«or T 
dm ptutieurt mogot»nei Its 
rans#*gnam«rili eonc*man" -sa 
rsochina ne btatficlenl pas du 
nv*T>*ro d# Commtaloft Po*>1o**. 
■I pin davantaga das pos- 
luux nhlulti. 



tilMFUN MICRO - Birneslriul - 
CW una publluriloft to ErMllofii 
JIBENA, 4, nit da lo Cour-do*. 
Npuoi 750M PARIS - S.A au 
capita! da 3600000 F — Imprimd 
par ClTf-PREii PAfllS - Oepcl 
lagal a la dot* d# ptpvfloai — Inir 
criplion 6 ia Cofrvni»ian Parifaire 
das Putfkuhw «i AgtncM d* 
Pr«ta : an court — Diraplawrda 
Id Publication : Guy-£l4man1 
COWl: - EMhrtion N.M.P.f. 



TREMPLIN MICRO 



Meilleurs voeux pour 1986 ! 



i: 



■ t; ,■■ 



ONNE annee, amie Lectrrce. et 6 vous au«l ami Lecteur.., or bonne pro- 
lamination, sur voire Apple I II vout mieux sodonner &cette possionnoirte 
octlvlte que de dire du rod de son volsln ! non ? Justement, portons de 
notre plus proche,,, voisin : Apple. 

Qu*lle(j] surprise! i), «ividomnwnt ogrdable(s) nous reservenf done le* dirl- 
geants de Cupertino ? Noel 85 a vu le* pm tombor 6 leur niveau le pfus bos et I 'Apple 
/fc restail, sur un mcrthe domine par les compatibles IBM, une bonne affaire et un bon 
choix Peut-on lui prornettre une longue vie ? J'en doule. Cantrairemenf a ce que I'on 
pensail chez Apple, les machines fenmee* n'ont gvere d'avenir, aetueHernenl du moins, 

L'uiilisaisLr, la'-squ il relifse le pr£l*fa-porrer Informatique. oirne se bidouifler un 
systems h sgs mesures... et il a done besarn d un nombre raisonnable de slols nM ten- 
sion. Ce sonl eux qui ont perrnis 6 f'Apple H cte devenir une machine universale... donr 
le geant tBW sest largemenl inspire lorsqu'll a d£ctd£ de lancer son PC Et |c pone que 
Mac aurait do^jbl4 le chiffre de ses ventes s'il avail e1e equip^. comme son oino, de 
quelque* fenl« desliniw 6 outani dt cartes... D'ailleurs. opres qvasr persev^ dons 
l erreur, Appfey vitnl.Mais laissansMoc 6 nos confreres speoatlse* I 

Quand noilra I' Apple tlx (il paroil qu'il conservera ses chiffres remains), celui que vous 
et moi attendons avec curiosi^... et Inleret ! Je fte suis pa& dons le secret des. dteujt. el 
je unore. II semble, si j en crois des milieux gen^ratement blefl infamies que lo dote 
de son onnow:© wit beowoup plus proche que ne te laHsenl entendre les dlfigeonf* 
d' Apple Id'ailleun. cnueH tur ki queslion, fe le reconnois)* Ce $era done un 16 falls, pr6- 
senlont leminente qua lite d'emuler I'Apple // actuel {equipe d'un 65CU2.I, tnais redle- 
ment dilietenl de son oncfitre ; clavier wpare, bloc numenque d'origine, ecran couleur 
umdlsV, emplacement pour di*que dur... Pre«juo un Mac, ma«s avec ta philosophic que 
nous apprecions dans I'Apple //. ce qui n'exclut nuKemenf I'utilisatian de ta souris el la 
mullipfication des feneires 

Ah I j'oufcliais : {'Apple Itx sera livre, d'origine r avec un outre Bosh:, eomprenant des 
tas d'instructions nouvelles... mois qu'il faudea charger |que I on se rassuro ! avec la 
SOFTCARD, ct sero inslantane I ). Adieu lo ROM ! Quant aux programmes de Tr&mplin 
Micro, je vous prometi qull* ne toumerom plus autour du "Pont using", des Transfer!* 
d'^c/ans",.. et outre* astuces ; naui ouront mieux 6 ioire avec de merve^llfiux petrts 
logiciels, uttlisant et la sourts^ ettoutes lesfonctions qui y stmt raltachies. 

Vous pensez que je reve ' Peuf-e1re L'avenir le difo, mais comptez en tout cos sur 
Tremplin Micro, pendant toute cette ann^e, pour vous aider 6 mieux cofinotlreet utili- 
zer votre Apple lie, tfc ou lix Ce n'est pas demain que Guy-Hadtette el &es collabo- 
raleurs paurront abreger leurs longues et captrvwtes verllees f 

Encore roes meilleurs vaux, et bonne progrommalion I GUY-HACHETTE, 
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INITIATION 

• Trajet minul£ 

(une routine cre-e© a la demands 
dun lecleur de Tremplin Micro) .... 



9 



Point par point 12 



51 
62 



Saisie de mots 

Multiplication en assembleur . — 

L0G1CIELS 

• ie Jongleur de mots, un excellent 
troitement de texte 39 

• Mouse Desk indispensable avec 
I'Unidisk 63 

• L'anglais sur Apple avec Assimi! f t 63 

PES TRUCS 

• Inverse-normal ou comment vous 
passer, dons un programme, des 
instructions INVERSE el NORMAL, 
remplacees par CTRl-l et CTRL-N 40 

• SAUVEaprfesunNEW 
malencontreux 59 



POINT 

PAR 

POINT 



Ou II e-st demontr^ qu'il est facile, sur un* 
Imprimante fmageWriter ou sur une DMP, 
d'ddlter les pages graph iC|ue& de I' Apple ..... 12 



i 




ET LE 

PROGRAMME 
IMP.HGR.1 



II Fonctionne sur imprimante DMP, ImageWri* 
fer Mannesman^ et autres compatibles 17 



GRAPH1SME 



Animez vos triangle* 
Point par point 
le programme IMP.HGR.I 
GROSSIR ? par B. GOURC 



•••«»-- 
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13 
17 
35 



CARACTERES PERSONNALISES 

' PA<5€ 34 

• Un programme pour DMP, 

I mage Writer el I mage Writer II 

* Une premiere application : 

En rreanl 8 caracteres sptkiaux, Urns 
les encadres devJennent possibles- 



UT1LITA1RES 

• VISU-PUCE 

• Conversion Decimal 
— Binoire 



41 

Hexadecimal 

53 



VISU-PUCE • par Malice Cbvelli * 

Pour voir ce qui se passt? dans 
votre Apple lorsque "towne" un 
programme 41 




L1SEZ AUS51 : 

■ Vol re b i b I Sotheque 

mformatique 8 — 34—64 

■ Nouveoux mal6rtols 

* Une imprimante AAannesmonn 







* ImageWriter II 




• On i disk 3.5 


52 


■ La conversion ? 






55 




21-32 


• Le courrier de* lecteurs 




et les nornbrouses r^ponses 




apporl&es par TremplJn Micro 


5? 


* Bulletin de commande 




et d'abonnern*nt 


- . . 66 



TREMPLIN MICRO 

Le num£ro 7 paraltra le 3 mars. 



MB ■ • HflHM 

&UV-MACMCTT1 1 



GRAPH ISME 



ANIMEZ VOS 
TRIANGLES ! 




La surface d'un TRIANGLE est tQilt *<J 
1>EHI-PR0DUIT d* BASE par u HAUTEUR 



E programme se veut "educa- 
tif", mais il n r a pas la preten- 
tion d'etre un module du genre. La 
courte "le^on" qu'il pr&sente com- 
port e bien des lacunes et bon nonv 

bre de nos Jecteurs ensergnants voudront sans doute le completer. La page 
graphique de presentation est entierement realisee en utilisant la corn- 
mande HPLOT, mais en langage machine. Nous n'avons pas jug4 utile d'en 
publier le programme source. II suffit de lister le sous-programme binaire 
pour en comprendre focilement le fonctionnement. 



LOWEM praSege votre 



routine en 
rr-othine 
AHlchage presentation + 

Roppel utile, sous Ifi * 
graphisme ™ 



V<ks lo sous-routine ^ 
rfatfente 



Effacement Invisible de ^ 
[q page grapjiique. 



10 LOMEMs 5A06t PRINT CHP* M^BLQAD TRIBIN,A4780 h : 

REM *I25C (LONGUEUR 858^ 
20 TEXT ; NORMAL ; PRINT CHP* '.21): HOME :2 ■ 9 

39 GOTO 556 

40 UTAH 2li PRINT " La surf act d'un TRIANGLE #§* #ga1 
e au DEMI-PRODUIT sa BASE par sa HAUTEUR" 

PENDANT L'^FFICHAGE DE LA PAGE GRAPHIQUE, 
VOUS PREPAREZ LA SUITE EN MODE 'TEXT" 



"50 INVERSE : FOR ] = 5 TO 15s VTAB Is HTAB 5: PRINT - 
HTAB 34i PRINT ■ " : IF I 3 OR ] = 15 TH&i F 
OR J = 6 TO 35 i UTAB Is KTaB j | PRINT * NEXT 
69 NEXT 

79 GOSUB 480 s NORMAL t GOSUB 476; TEXT 
29 VTAB 8: HTAB 9s PRINT "OOWEZ LES DIMENSIONS DU* : 
^TAB IB: HTAB 9: PRINT "TRIANGLE QUE UQUS DE5IREZ 
M t VTAB 12i HTAB 9x PRINT u OBSERVER SUR CET ECRAN. , 

M 

*9 NORMAL t HCOLQR" Zi HP LOT 1,1: CALL - 3682: GOSUB 

L A SAISIE DES DONNEES COMMENCE IC1 

189 CALL - 1«8: VTAB 21: INPUT "QUELLE EST SA BASE <2 
9 A 2791 -> M ;R*: IF R* = " THEN GOSUB 478: GOTO 
428 



TREMPIIN MICRO 



110 B = UAL tM9a IF 6 < 28 OR B > 27? THEN 188 
120 GOSUB 478 

I3« CALL - l?8l VTAB 21 t INVERSE 1 PRINT "BASE = "Bj : 
NORMAL I INPUT " SA HAUTEUR ftj A 158) -> MR*t IF 
R* = " H THEN 98 
148 H = UAL (R»>! IF H M9 OP H ) 158 THEN 138 
158 GOSUB 478 j VTAB 22 i HTAB 8: INVERSE : PRINT 'BASE 

=*;t NORMAL t PRINT " "8" ' \ '. INVERSE I PRINT "HA 
UTEUR ='i? NORMAL ! PRINT " "H 



^ Vers effacemeni 



TRACE DE TRIANGLES SUCCESS ES DE MEMES BASE ET HAUTEUR 

168 HCOL0R= 3: HPLOT Z,H TO 2,2 TO B,H TO Z,Hs GOSUB 5 



178 VTAB 24! HTAB 4: INVERSE I PRINT "PRESSES UNE TQUC 

HE SUIVANT VOTfiE GRE" : NORMAL t VTAB 22: GOSUB 528 
188 '.■TAB 24 i HTAB <4: PRINT • LA HAUTEUR PESTE CONST AM 

TE "p VTAB 20: PRINT '" 
198 FOR I = 7 TO B STEP 7s BOSUB 588 i GOSUB 518: NEXT 

i GOSUB 588:1 = B: GOSUB 518 
208 GOSUB 478 1 HTAB 5: VTAB 22: PRINT MCI, C'EST UN T 

R I ANGLE "p INVERSE : PRINT "RECTANGLE" l NORMAL : G 

OSUB 488 

218 GOSUB 478: HTAB 7s VTAB 22: PRINT 'ET VQICI LE MEM 

E. . • "ji INVERSE : PRINT MSOCELE": NORMAL 
220 HBR : HPLOT B / 2 t Z TO Z,H TO B,H TO B / 2,Z: GQSU 



238 VTAB 7: HTAB 8: PRINT "COMME VOUS LE SAVE2 , CES ': 
VTAB 9t HTAB 8: PRINT MRIANGLES AVAIENT MEME BASE 

■ t VTAB lit HTAB 8t PRINT "MEME HAUTEUR , MEME "j: F 

LASH : PRINT "SURFACE": NORMAL s 
240 GOSUB 470: TEXT : GOSUB 488: HOME 

ON PASSE AUX QUESTIONS DE CONTROLE 



258 T4 = ' Q U A T R E QUESTIONS"? INVERSE t 

VTAB 2: HTAB 5: PRINT T*?T* - • 

"l VTAB I: HTAB 5i PRINT T*: VTAB 3: HT 

AG 5: PRINT T* 
269 NORMAL : PRINT : HTAB 5: PRINT "Quel If la bann 

e de<f tnl lion 

278 VTAB 16: INVERSE : PRINT "A" } i NORMAL : PRINT " De 
ux COTES EGAUX et deux ANGLES EGAUX qui Uur son 
t oppo&e&M PRINT 

288 INVERSE : PRH4T "B'jt NORMAL I PRINT " tin angle DR 
OITM PRINT 

2?0 INVERSE ; PRINT "C"j: NORMAL : PRINT ■ Trots COTES 

EGAUX <!ingits= 68 d*gr**)": PRINT 

380 INVERSE : PRINT "D" : : NORMAL : PRINT « Trois COTES 

INEGAUX" 

318 POKE 34,7: POKE 35,15 
328 Q = Z:E = Z 



II est preferable de choilir 
let plus grand** dfm»n*lons 
pour obttnlr un bon 
reiullert. 



^ Troce, poli GOSUB vers 
I aflichage de Id poge 



^ Trace du triangle isotele 



■ U nombre de questions 
peur evtdomment elre 
modlfi*, e1 celles-a 
omellorees. 

Le programme est perfecti- 
ble, ficewnbten I 



GUY-HACHETTE 



Jtepon sbs en DATAs 



P!uh il y aura dapprecia- ^ 
lions... st plus votre pro- 
gf amine sera long. Evldenl, 
non ? 



Si I'on desire en rede- 
mondw, e'«t lout dc 
meme pre\u.,, 



lerlres en mode inverse ^P 



Anente classique 
(CTRL-C Jonctionne) 



Z-fl el on efface 
TRACE(HCOLOR = 3) 



Emission d un 82ZZ 



Une melhode origi- 
nal* d'eifacBmenl d« 
lo pagegraphique 
Vers ie sous-prog ramrne ^ 
en assembieur 

Affichage HGR sans 4. 
•Hoc* men I 



330 = Q ♦ I: READ Ot: READ RB* 



145 



358 
340 

37ft 



^TAB 5 + « 2 1 CALL - I "8: HTAB 5 s INVERSE : PR 3 
NT Qf;i NORMAL : PRINT " LETTRE-CLE -> " * 5 BET Rt: 
PRINT Rti IF Rt < > RB* THEN E = E ♦ I: GOTO 348 
VTAB 5 ♦ Q • 2s HTAB 5i PRINT 0* 
IF < 4 THEN 333 
GOSUB 496: TEXT 



APPRECIATION... SI I'ON PEUT DIRE 

388 VTA8 3 5: CALL - '58: PRINT 1 HTAB 5j IF E = 2 THE 

N PRINT " "st FLASH ! PRINT "BONNES REPONSES: TRE 

S BIEN!" 1 GOTO 428 
3*8 INVERSE t IF E = I THEN PRINT "UNE LACUNE BUI SER 

A DONC COMBLEE* : GOTO 428 
488 IF E i 4 THEN PRINT * UNE BONNE REVISION S ' IMPOSE. 

,."! GOTO 428 
418 PRINT "CONNAISSANCES TRES INSUFFISANTES* 



ON CONTINUE... OU ON ARRFTF f 



428 NORMAL : YTAB 22 : CALL - I9BjX « 8: GDSUB 448: PR 
J NT "ENU OE 0IS0UETTE 'it GOSUB 448: PRINT "ECOMMEN 



CER ";: GOSUB 468: PRINT "ERMINE 



GET R* : PRINT 



R*: IF R* = "R* THEN CLEAR : GOTO 20 
430 IF R* = "M* THEN PRINT : PRINT CHR* <4>*RUN MENU 

k 

448 IF Rt < > *T a THEN 428 
458 HOME t END 

440 INVERSE iX = X + 1: PRINT MID* ( «MRT' ,X , 1 ) $ : NORM 
AL ; RETURN 

'■/TAB 21: CALL - 958 1 RETURN 
PET ITS SOUS-PROGRAMMES DIVERS 

480 MTAB 24; HTAB 4: PRINT "PRESSES UNE TOUCHE QUELCON 

QUE":: UTAB 28; PRINT 
490 CALL - 198: POKE - 14348,8: WAIT - 163B4 r 12B,12 

7: POKE - 14348,8: RETURN 
580 HCOL0R= Z: HPLDT 2,H TO I - 7,2 TO B,H: HPLOT I - 

7,2 TO I - ?,H - 1: RETURN 
510 HCOL0R- 3! HPLDT I ,2 TO I ,H - 1 : HPLOT Z,H TO 1,2 

TO B,H 

528 FOR II = 1 TO 10 :X = PEEK < 49208 >i NEXT 

538 X = PEEK (49152)! IF X < 128 THEN 538 

548 POKE 49148,8: VTAB 28: PRINT "*l RETURN 

558 POKE 8192,8 :A* = ■ 288 K2B68 .3FFEM D823G 1 * 

548 FOR I - 1 TO LEN <ft*>: POKE 51! + I, ASC < MID* < 

At, 1,1)) + 128; NEXT | POKE 72,B: CALL - 144 
578 HGR i TEXT t HCQLQR= 3: CALL 4788: GOSUB 538: GOTO 
48 

588 POKE 49234,8; POKE 49235,8s POKE 49239,8: POKE 492 
32,8; RETURN 

598 DATA RECT ANGLE, B, ISOCELE ,A , SCALENE ,D, EQUILATERAL, C 
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TRIBIN (ROUTINE DE PRESENTATION) 



125CjA2 8* AB 60 A* 28 20 3? F4 A? 8E A2 

01 A0 28 29 3A F5 A" 96 Aft «6 20 3A RS 
A" 09 AO 29 20 3A F5 A2 3C Aft 00 A* 32 2 
5^ F4 A* 0A A2 00 A0 6E 20 3A F5 A 9 84 
A0 6E 20 3A F5 A9 3C A0 32 20 3A F5 A2 



5 7 



F4 A9 IE A2 00 A0 7 



0D A0 81 A9 32 20 

7 20 3A 

12AD:F5 A9 DC A0 95 20 3A F5 A9 0D A2 01 

A0 32 20 3A F5 A2 09 A0 00 98 20 57 F4 
A9 22 A2 00 A0 00 20 3A F5 A9 22 Aft 05 2 
3A F5 A9 18 A0 05 20 3A F5 A<? IS AS 23 

20 3A F5 A9 13 A0 23 20 3A F5 A9 13 AB 
05 20 3A F5 A9 0' AP ©5 20 3A F3 A9 99 A 

00 20 

12FE:3A F5 A2 29 AO 00 9© 20 5? F4 A9 42 
A2 00 A0 0O 20 3A F5 A9 42 A0 14 20 3A 

F5 A9 38 A 6 14 20 3A F5 A? 42 A0 23 20 3 

A F5 A9 3C A0 23 20 3A F5 A9 32 A0 14 20 
3A F5 A9 2E A0 14 20 3A F5 A9 2E A0 23 

20 3A F5 A9 29 A0 23 26 3A F5 A9 29 Aft 

20 3A 

134F:F5 A2 2E Aft 00 A9 05 20 57 F4 A9 3D 
A2 00 Aft 05 2ft 3A F5 A9 3D Aft 0F 2© 3A 

F5 A9 2E Aft 0F 2ft 3A F5 A9 2E AB 05 20 3 

A F5 A2 49 A0 ft© 98 28 57 F4 A9 4E A2 00 
Aft 00 20 3A F5 A9 4E Aft 23 2ft 3A F5 A9 

49 Aft 23 20 3A F5 A* 49 Aft 00 2ft 3A F5 A 

2 55 Aft 

13A0 108 <?8 20 57 F4 A9 £E A2 B0 Aft 8ft 2ft 

3A F5 A9 6E Aft 23 20 3A FT. A9 69 Aft 23 
2ft 3A F5 A9 69 A8 14 2ft 3A F5 A9 5A A8 1 

4 28 3A F5 A9 5A A8 23 20 3A F5 A9 55 Aft 
23 2ft 3A F5 A9 55 AO ftft 20 3A F5 A2 5A 

AO ft© A9 05 20 57 F4 A9 69 A2 80 Aft 05 2 

8 3A F5 

I3FI iA? 69 Aft 8F 20 3A F5 A9 5A A8 0F 28 

3A F5 A9 5A Aft 85 28 3A F5 A2 75 Aft 88 
98 28 57 F4 A9 75 A2 08 Aft 23 20 3A F5 A 

9 7A A0 23 20 3A F5 A9 7A A0 88 28 3A F5 
A9 89 Aft 23 20 3A F5 A9 8E A8 23 28 3A 

F5 A9 8E A0 00 28 3A F5 A9 89 A8 80 2ft 3 
A F5 AC 

1442i99 A8 1C 20 3A F5 A9 7A Aft 00 20 3A 

F5 A9 75 A8 88 28 3A F5 A2 AE Aft 88 98 
2ft 57 F4 A9 95 A2 80 A0 88 28 3A F5 A9 9 

5 A8 23 28 3A F5 A9 AE A0 23 28 3A F5 A*? 
AE A8 8F 28 3A F5 A9 A4 Aft 8F 2ft 3A F5 

A9 A4 A8 14 2ft 3A F5 A9 A? AS 14 28 3A F 
5 A9 A9 



SI voire etei neophyte, lopez 
un CALL— 151 (suivr de 
RETURN} pour pastor en 
mode moniteur. Puis, imme- 
diaJamanl apres I'etoile, 
laoez chacvne des sequences 
suivanle* (RETURN opres cha 
nme d'elles}, 
Pour terminer : 
OS AVE TRiaiN. A4790, L858 
jou HAVE TRIBIN. AS125C, 

Ensulte, lopez CTRL-C, puis 
RETURN el, en direct, Lo tV 
nride de controle que vous 
trowerez a la page suivanfe. 
L« resullat devra efre 

DEUX APRE55ES 

$F457 HPLOT 

Trace un point iplocer dans 
X ot Y les parties basses el 
hautes de la coordonnee X 
du point en question, et 
dart* A la coordonnee Y). 
Ainsi, apodir de S125C, 
LOX £$09 
LDY£$O0 

lda im 

J5R SF4S7 

vq tracer un point en S9 S28 
(9-40 en decimal),., au 
encore a 9 Au bord gauche 
de I'ecran et 6 40 du hout de 
ce meme ecran). 



$FS3A 



HUN 



Trace une llgne. de fa 
m4me maniere- CeUe fors, 
on place le nombte de 
points horrzontaux en A.X 
(toujours en hexadecimal) 
et la coordonnee Y dans 
Y (accumulateuf). 
Dans natre programme, a 
parti r de l adresse $1265. 
cela donne : 

LDA £SGE "1 $10E = ?70 



] 



LDX £S0l 

ldv «28 m = *a 

JSR SF53A 

\Jf\e llgne va oiler du poini 
prfcident ou polni situi 6 
296 du bord gau-che et a AO 
du haut de I'ecroo. 



f 



GUV-H ACHCTTE 



WOT 



Un sous- programme en Ian- 
gage machine dgrOtt lerri- 
bleroenl long (celui-d est 
Blementaire e» ne fait que 
tracer des lignes luccestr- 
res), mais 1 1 n'en est rien, 
Sans etre un thet-d'ceuvrp 
(*l (MS dovanlagB un 
modele), 1'ecfan grophique 
oinsi obtenu occuperail les 
33 seeteur* dune dlsquette, 
Id, il ne comporie que 858 
octetv,. 22 lignes de 
BASIC I 



1493: AO IE 20 3A F5 A9 «A Afl IE 29 3A F5 
A9 9A A8 85 20 3A F5 A? AE A8 05 20 3A 

F5 A9 AE A0 00 20 3A F5 A2 65 AO 00 98 2 

57 F4 A^ BA A2 GO A0 60 20 3A F5 A? 6A 
AC IE 20 3A F5 A? CE A0 IE 20 3A F5 A? 

CE AO 23 20 3A F5 A9 B5 A0 23 20 3A F5 A 

9 65 A6 

14E4:08 28 3A F5 A2 05 A0 00 98 _'0 57 F4 
A« EE A2 00 A0 00 28 3A F5 A9 EE A0 05 

20 3A F5 A9 DA A8 05 20 3A F5 A* DA A0 

F 20 3A F5 A? E4 A0 0F 20 3A F5 A9 E4 A0 
14 20 3A F5 A* DA A0 14 20 3A F5 A9 DA 

A8 IE 20 3A F5 A9 EE AO IE 20 3A F5 A9 E 

E A© 23 

1535:20 3A F5 A9 05 A0 23 20 3A F5 A9 05 
A0 00 20 3A F5 A2 0E A0 01 A9 00 28 57 

F4 A"? F5 A2 08 A8 00 20 3A F5 A*? F5 A0 I 

4 28 3A F5 A9 89 A2 81 A8 14 20 3A F5 A9 
09 A2 01 A0 IE 20 3A F5 A9 F5 A2 00 A0 

IE 28 3A F5 A9 F5 A8 23 28 3A F5 A9 8E A 

2 01 A8 

1 586; 23 28 3A F5 A9 0E A2 01 AO OF 20 3A 

F5 A9 FA A2 00 A0 0F 20 3A F5 A 4 ? FA A8 
85 28 3A F5 A9 8E A2 01 A8 05 20 3a F5 A 
9 0E A2 81 A0 00 20 3A F5 6© 

BSAVE TRIBIN, A$125C, L858 



FORMULE DE CONTROLE (EN DIRECT) 



§T=0 ;FOR1=4700TO4708 + 857:T=T+PEEK< 1 > sNEX 
T ! PFIMT T 

Le resultat devra etr« 96808 



Vous nous adressez vos programmes, sort pour 
qu'ils soient publies dans Tremplin Micro, soit 
parce que vous butez sur une difficulty appa- 
remment insurmonlable. 

Bien. Nous sommes vos amis... mais de grace, 
joignez toujours a votre envoi la disquette cor- 
respondante, avec les sources eventuelles. De 
plus, si un retour s'impose,n'oubliez jamais 
que Tremplin Micro ne roule ni sur Tor ni sur 
les rimbres-poste ! 

Mors, amicalement, joignez une enveloppe 
ttmbree et libelee a votre adresse. 
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IVotre bibliotheque 
INFORMATIQUE • par NESTOR 




• BASIC PLUS... 80 routines 
pour Apple //* 

Michel Martin connaft bien le basic 
Applesoti et desire communiquer 
sa science aux programmeurs 
mains qualifies que fui : la bonne 
tdee que voila ! Comment slruclu- 
rer un programme ? Comprendre 
et utilizer le* tonclions logiques et 
noiammant D€F FN ? Deux ques- 
tion* auxquelles Michel Martin 
r£pond ^Implement el eflicoce- 
menl. Moll II va beaucoup plus 
loin, et t'on n r en linirart pas d enu- 
merer les tilres des divers chapi- 
Ifes et sous-chopitres de cei excel- 
lent recuell de programme* judi- 
cJousemenl slrucfur6... mats oui I 
On almeralt que tous les bouquins 
oieni cette lenue. Bravo ! 

* MATHEMATIQUES ET GRA 
PHISME SUR APPLE //** 

Marc Oucamp el Aloin Revefdron 
oni as$otf£ tours eflorti et tour 
talent pour nous concocter un bau- 
quin donl j'avouo, b rno grand© 
honte, n'avoir pas r&copie les pro 
grammes. Chopaau ! PorsonneHo- 



I 



ment je nol qu'un regrei, e'eat de 
ne pas pouvoir acheter la dis- 
quetSe... contenant toutes le* rou- 
tines de cet ouvroge. Pourquoi ne 
pas la commercial! ser ? \\ est vrai 
que les aureurs descent — ct'abord 
el surtout — misier leurs [ecteurs 
aux methodes de calcul nurneri- 
que, ce qui passe par une analyse 
serieuse des programmes... et 
done par une froppe directe au 
clavier. Je conseille neanmoins a 
la iibraine Eyrolles de d iff user la 
disqgette . elle le mente ! 



MATHEMATIQUES 
BT GRAPHISME 

SUR XPPLE n 




• LE TOUT MICRO*** 

Tout. Vous saurez tout sur la 
micro- informatique individuelle, ef 
meme J'adresse de votre Tremplin 
Micro, {.'edition 1985/1986 de eel 
ouvrage, discret — mais suftisant 
— par sa pagination, seduisant par 
la rkhesse de son illustration 
(beaucoup de couteur) et de so 
mJ&e en page* indispensable par 
I' abandonee et I'exoctiiud* de so 
documentation qui m'a paru plus 
complete que la pr6c6d«nto ctojd 
fori int^ressante. MotAriels, 
tableaux comporarlfv piriphAri- 



ques, logleiels, livre*, odresse*.., 
LE TOUT MICRO meVile son Mre I 




* Baska et GWBASIC Micro- 
$oft** 

Je sais : vous pa*56de;t un Apple 
el nan un IBM PC. mais e*t ce une 
raison suKisonte pour voui dtaln- 
teresser completement du GWBA- 
SIC (ou BAS1CA) ? Suremenl pas. 
fc ouvroge de B^uno Vanryb et 
Roger Politis lienl comple des der* 
nieres versions {celles installees 
sur IBM PC e1 OLIVETTI M24). mois 
Jes instructions l« plus recenles 
sont separees des autres, ce qui 
permet de ne pos penalise* les 
possessors des premieres ver- 
sions. Comme on aimeraii trouver, 
sur Apple, certaines de* exten- 
sions (et pourquoi pas toules ?) du 
BA5ICA 1 II est vrai qu'il y o le 
Basic de Mac... mals je pr6l&re, 

3uonf 6 mol, sage Nestor, rover 
un Apple II... 16brls I 

NESTOK. 



GUY HACHETTS 



PRATIQUE | M 



ProDOS 



BASIC FACILE 



Programme dermnde 



T RAJ ET MINUTE 



II s'agit de noter, pour 
chaque etape d'un par- 
cours (un rallye,.. ou 
un deplocement 
rien}, le temps prevu, 

Le programme *a done 
oddilionner les minu- 
tes et les heures, four* 
nir, ou fur et a mesure 
de lo saisie, le temps 
total prevu : 

• en heures el minutes 

• en minutes 

• en heures el centi- 
mes de minute. 

On peut corriger les 
donnees en Japan t un 
"*", voir et revoir le 
taWeau aide-memoire 
en tapont un "C"~. etc. 
Tout cela figure dans le 
programme, 

Ajoutons que I'impres- 
sion des etapes et de 
leur durde est oussi 
prevue, 

De plus, il n est pas 
inlerdit de modifier et 
de completer cette 
routine, creee a la 
demande d'un lecteur 
de Tremplin-Micro. 



TREMPLIN MICRO 



108 
1*5 
118 
113 
128 
125 
138 
135 
148 
145 
I "50 
155 
168 
1*5 
170 
175 

168 
185 

m 

1"5 
288 
285 
210 
215 
220 
225 
238 

235 
248 
245 

255 
2*0 
265 
270 
275 

230 



285 

i9i 



TEXT ! PRINT CHRf C2!>-i HOME 
DIM T<9i> ,T*'38> 

FOP I « I TO 21 = 4 ■ " : NEXT 
FOR 1 * I TO MtPT* = PT« « "...'i NEXT 

REM ♦* PETIT MENU ## 

REM «**#*#•«##*#•##*#••»*••»•»***« 

■ 

HTAB 9l INVERSE ; PRINT " LES ETAPES DU PARCOURS ■ 
NORMAL : PRINT 

PRINT "MENU EXPRESS ■ 

PRINT i PRINT " 1. SAIS1E' 
PRINT ; PRINT " 2, IMPRESSION" 
PRINT t PRINT ■ 3, TERMiNE" 

PRINT : PRINT " CH01X -> " ( tC ■ POS 

(X) ♦ UCV * PEEK <37> ♦ 1 
PRINT : GOSUB 680 

VTAB CV: HTAB C: CALL - 958: CALL - iHi BET P* 

ON UAL <R*) SOTO 259 , 480 , 1 <>5 : GOTO 185 

TEXT : HOME : END 

ON R GOTO 258,480,548? OOTO 190 

I 

REM 4*#»**«««******«***«ft****#»**« 

REM ** SAISIE DES DONNEES *» 
REM ###»»####ii*#»#*Pt**#**#**»»»** 

1 

X « 8i FOR I » I TO 21 STEP 7tX « X + 1 : VTAB X: HT 

A0 33j PRINT MID* <T*,I,7)t NEXT : RETURN 
T* * y»t G0SU8 238s GOTO 185 
TT * TT - <T(N - l))tN = N - 2t GOTO 435 

INVERSE : PRINT Mi NORMAL 
NORMAL 
N ■ 

N » 0iTT = 9 
N ■ N + I 

T* = "LIBELLEDE L'ETAPE'i INVERSE t GOSUB 238: 
NORMAL 

PRINT t VTAB 14; CALL - 848! PRINT N* \ iVl ■ PO 
S <X): PRINT PT*j: HTAB VI ♦ ! s CALL - 1 98 1 IF E*/ 
N) < > THEN PRINT E*<N>j 
HTAB VI ♦ I ! INPUT jE* 

IF E» ■ " AND E*<N> < > THEN VTAB 14j HTAB V 
I + I : PRINT E*<N) — 



2<?5 
390 

316 
315 
328 



IF E* 
IF E* 



■" AND E*<NJ < > THEN 336 
■F* THEN POKE 35,22; GOTO 235 



IF E* ■ 

IF E* = 

IF E* = 

IF E* = 



GOTO 288 



"C" THEN GOSUB 488; 

THEN 230 
"*" AND N > 1 THEN 240 
THEN 235 
325 E*<N> = E*:E* = ■■■ 

338 T* = "RENT&E2MOTRE HORA] RE* : INVERSE : 
NORMAL 

335 VTA8 14: HTAB 24: PRINT "TEMPS *N" -> ' 

<X1 + I 

348 CALL - B48: CALL - 198s IF T',N) THEN 



GOSUB 238; 
fiV * POS 
PRINT T*<N 



INPUT "NT* 

■?" THEN 235 
•C THEN GOSUB 488: 



II # 



GOTO 335 

AND TCN> THEN 438 
THEN IBS 

'•' (WO N ) I THEN 248 
°F" THEN POKE 35,22: GOTO 235 
» 8:LT = LEN 'T*^s IF NOT LT THEN 208 
LT TO 1 



MID* (T* F I, 



STEP - I ;C* = 
OR C* > "? m ^ AND C* < 
" THEN P ■ IsPP » I 
= LT - 1 THEN T* » LEFT* <T*,1) 
CT*,1): GOTO 388 



TF 



THEN 288 



345 HTAB V: 
350 IF T* = 
355 IF T* = 

368 IF T* = 
345 IF Tf 
378 IF T* - 
375 IF Tt = 
38B P = 8:PP 
385 FOR I a 

<C* < 

396 IF CI b " 
395 IF P AND 

♦ RIGHT* 
488 NEXT 

485 IF NOT P THEN TMX ■ 48 * UAL CT*)t GOTO 420 

419 TXX = INT C VAL <T*) > jTY5£ - VWL < RIGHT* <T*,LT - 

PP>);TMX = <4B * TX3i> 4 IT/. 
415 IF NOT PP THEN T* ■ T* * -.88" 

428 IF Tttt > 388 THEN VTAB 21 1 HTAB Is PRINT TMX" MIN 
UTES - CONFIRMEZ PAR OUI SVP M {i GET R*: PRINT : VT 
AB 21: CALL - 848 r IF R* < > «Q" THEN 200 

425 T*<N> = T4{T(NJ = TNK 

438 TT = TT + T<N) 

435 H* = "«:M* = :H* = STR* < INT t.TT / «8Dj IF < V 
AL 'H*> * 40^ < > TT THEN M* = STRf 'TT - < UAL ( 
H*> * 48) > 

448 HC4 = H*t IF M* < "» " 

* < INT ( VAL <M*) • 
445 H* = H* ♦ "h" ♦ m 
458 SOSUB 570: GOTO 278 
455 : 
448 

443 

478 
475 
498 



THEN HC* - HC* ♦ 
18 ' 48)) 



M " 

r 



STR 



REM 

REM #« JMPRESSIDN 

REM *#*#*##*#****#*##^###**#*##*# 

PRINT : UTAB 28b CALL - 868: PRINT "ALLbMEZ UOTRE 
IMPRIfttNTE S.V.P'js GET R*: PRINT s VTAB 28: CALL 
- B6S 

PRINT s PRINT CHR* <4> - PR£l'; PRINT s PRINT CHR* 
<?) M 8eN - s PRINT CHR* <27)*E M : CHR* <27)*L828 fc 



On aurarl sans doule pu 
slmplrher ceite partle de 
la So^ie on ulilts-anl une 
seufe variable,, evitam ies 
doubles "IF ceci... ou 
<*la ,r , mais on rVe*i pas — 
Fcl en taut cas — a quel- 
ques octers de plus ou de 
molns. 



II extsre difterentes 
meltiodes pour addition 
ner le-s heures el les minu- 
tes. Noua en avons chol*i 
gne, pour differentes roi- 
1Q»U. lout a fait 
arbitrages. 

A noter que, si vous saisis* 
sei 1.1, le programme 
transform* aulomatique- 
ment en 1 .01 . La encore, i| 
s'agit d'un cholx delibere. 



Si CHRS'WN" ul une 
Commando srandard, 
CHR$(27)"E" er CHRS 
"L020" sent destinies aux 
imprimanles DMP of 
IMAOEWRiTER. 



rn 



GUYHACHETTE 



Void un PRINT USING de 
derriere les fagols. Si vous 
gvez mieux... n'h&iiloz 
po* ! 



Si, tors de la saisie de la 
valeur n^l, on irtdiqu© 
I'HEURE DE DEPART, on 
obriendro ici I'HEURE 
D'ARRIViE. 



Nous avons foil un effort 
meritoire pour atfichef, 
par la frapp* dun simple 

"C", I'a'tde-memolre el- 
conire. 



Programme clautque. 
on boite, dm transfer! 



d'ecran. 



490 PRINT CHR-* < I4VDEPLACEMENT DU" CHR* Cl3)PT*a PR] 
NT : PRINT 

495 FOR I = 1 TO N - 1:E* = * 'i IF 1 > 9 OR N - 1 < I 

I THEN E* " ' " 
588 PRINT E* ; I ; " - , jE*<I)fi POKE 34,59 
585 IF T< I ) < 688 THEN PRINT * "} 
519 IF T(P < 61 THEN PRINT " "i 
515 T = UAL a*<I>) 

528 T* = STR» (<l ♦ T * 1808) / !888>iL = LEN <T*) :Tt 

= LEFT* <T*,L - l>i PRINT T*|" mn" 
525 NEXT 

538 PRINT : PRINT 

535 SV = t: GOSUB 570 3 PRINT s PRINT CHR* <'4'"Pfi£8' 
548 POKE 35,24: GOTO 185 
545 ; 

550 REM «** *• ##**#»***#***«*#**#•# 
555 REM ** TEMPS TOTAL 

560 REM •**•**>*********************** 
565 I 

578 VTAB 23t PRINT "TEMPS TOTAL t"H*" "TT" mn) OU " f J 

INVERSE ! PRINT HC*f: NORMAL : PRINT * " \ : RET 

URN 

575 : 

5S8 REM #***••♦»«*»»*»**»************* 
585 REM *» AIDE-MEMOIRE *» 

590 REM •**#»«»**##■••«*•**»*******•♦* 

595 t 



$99 
485 

418 

415 
428 
425 
6 3d 
435 
448 



GOSUB 478 

VTAB 11: CALL - 958: FOR I * I TO 18: PRINT ■ 

PRINT 

PRINT -PENDANT LA SAISIE: ' ! NORMAL ; PR1 



"j: NEXT 
INVERSE 
NT 

PRINT «- 
PRINT "- 
PRINT 
PRINT 
PRINT *- 



<?) VOUS RENVOI E AU MENU* 

<F> INOIQUE LA FIN DE LA SAISIE 

<*> PERMET DE REVENIR EN ARRJERE" 

<C> REWOIE A CE PETIT TABLEAU* 

< RETURN > CONSERVE LA DONNE E EXIST ANTE" 



ENFONCEZ UNE TD 
t NORMAL : GOSUB 



REM ** TRANS FERTS DES ECRANS ** 
REM *»#•«#•##■*#*«»*#•»«»*#**»**•• 



'./TAB 22: HTAB 5: INVERSE : PRINT » 
UCHE OUELCONQUE GET R* : PRINT 
685 i RETURN 

445 : 
658 
455 
668 
465 l 

478 ES * 1024iLO= 68: GOSUB 488:ES = 2840:LO = 62: GOS 

UB 6B8:ES ■ 81?2xL0 = 64: GOSUB 6B8 
475 POKE 748,140: POKE 769,0: POKE 778,74: POKE 771,44 

: POKE 772,254: CALL 766: RETURN 
688 POKE LO,ES - INT <ES / 256) * 254i POKE LO ♦ 1, I 

NT <ES / 256) : RETURN 
485 ES = 8192:L0 = 40: GOSUB 680 :ES = 928B:L0 - 42: GOS 

UB 680 sES = 1024:LO ■ 66: GOSUB 688: GOTO 675 _ 
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I 1 



GRAPHISME 



DOS ProDOS 

I 



INITIATION 



Oui, il est facile, sur une 
imprimante I mage Writer 
(ou bien sur une DMP), 
d'editer les pages 
graphiques de I 'Apple. 

LES imprimontes Apple sent accompagnees d'une documentation et d'une disquette TOOL KIT 
permettant d'4diler rapidement n'imporie quel £cran graphique, mats leur fonctionnement 
resle neonmoins mo I connu. 

Pourtant. quond on soit utiliser toutes les ressources de ces machines, realiser de belles impres- 
sions, sortant de ('ordinaire, devient un jeu d'enfant... en y mettant le temps, comme on le verro 
plus loin. 

L'ECRAN GRAPHIQUE DE L'APPLE : Les adresses de I'ecran 'TEXT" figurent dans de nom- 

breux ouvrages, mais les adresses des ecrans graphi- 
ques sont moms courontes. Une routine simple vous permettra de les afficher,.. et meme de les 
imprimer (e'estde la documentation sure !). La voici : 



I poirsn 
I P^ r 

I POINT 



100 TEXT i HOME 

110 FOR I = 768 TO 828t READ Dt POK 

E 1,0: NEXT 
120 PRINT "TAPER I POUR IMPRIMER "j 

i GET R* ; PRINT : HOME i IF Rt » 
*I* THEN PR£ 1 
130 FOP I = D TO 23 

149 POKE 6,1 x IF 1 < IB THEN PRINT 

150 PRINT If TAB< 4>ji CALL 768 
160 IF I < 23 THEN PRINT 

1 70 NEXT 

180 IF R» = "I* THEN PRINT : PR£ 8 
190 VTAB 3s POKE - 16368,0: WAIT 

- 14384,1262 HOME 
208 DATA 163,6,32,193,251 ,165,41,13 

3,6,32,33,3,165,41,24,105,28,133 

,6,32,33,3,165,41 ,24,105,68,133, 

6 32 33 3 96 
218 DATA ' 1 6?, 164,32,237,253, 166,48 , 

165,6,32,65,249,32,55,3,166,40,1 

65,6,32,36,237,162,1,32,74,249,9 

6 






10 480 


1024 


12000 


8192 


♦4000 


16384 


1 


♦ 0488 


1132 


12080 


8320 


14088 


16512 


2 


10580 


1280 


12100 


8448 


14100 


1 6440 


3 


18580 


1408 


12180 


8576 


14180 


14748 


A 


10488 


1536 


12200 


8784 


14200 


16896 


5 


18680 


1464 


12280 


8832 


14280 


17024 


6 


18700 


1792 


12380 


3968 


14300 


17152 


7 


18788 


1920 


12380 


9888 


14380 


17280 


8 


1B428 


1044 


♦ 2028 


8232 


♦4023 


16424 


9 


184A8 


1192 


120A8 


8340 


148A8 


14552 


18 


10528 


1320 


12128 


8488 


14128 


14680 


11 


185A8 


1448 


121A8 


8414 


141A8 


14888 


12 


10428 


1576 


12228 


8744 


♦ 4228 


14934 


13 


106A8 


1704 


♦22A8 


8872 


♦42A8 


17044 


14 


18728 


1832 


12328 


9800 


♦432B 


17192 


15 


*87A8 


1960 


♦23A8 


9128 


♦43A8 


3 7320 


16 


♦8450 


1104 


♦2050 


8272 


14050 


16444 


17 


184D0 


1232 


«20D0 


8400 


140D0 


16592 


18 


18558 


1360 


12150 


8528 


♦4158 


16720 


19 


*05D8 


1488 


121D0 


B454 


141D0 


16848 


28 


10650 


1616 


12250 


8784 


14258 


16976 


21 


10 6D0 


1744 


122D8 


8912 


142D0 


17104 


22 


10750 


1872 


*2350 


9840 


14350 


17232 


23 


107D0 


2000 


123D0 


9168 


143D0 


17360 



GUY-HACHETTE 



La structure de thoque 6cran graphique 
est apparemment la meme que cell* de 
I'toon TEXT, soil 24 lignes de 44 coroc* 
I6r*s, mais ce n est pes tout. Chacune 
d&s lignos de notre tableau n'est que lo 
premiere d un groupe de 8 
Ainsi, Si Ton considere l«r<m KGR 
($4000},. entre la ligne e! la ligne 1, on 
trouve? sous-lignes : 



0.1 




8192 + 


1024 


— 


9216 


3.2 


= 


8192 + 


2048 


- 


10240 


0.3 




8192 + 


3072 




11264 


0.4 




8192 + 


4096 




12288 


0.5 




8192 + 


5120 




13312 


0.6 




8192 + 


6144 




14336 


0.7 




8192 + 


' i ftS 




15360 


LIGNE 1 




8320 








1.1 




8320 + 


1024 




9344 


1.2 




8320 + 


2048 




10368 


1.3 




8320 + 


3072 




11392 


u 




8320 + 


4096 




12416 


1.5 




8320 + 


5120 




13440 


1.6 




8320 + 


6144 




14464 


1.7 




8320 + 


7168 




15488 



et oinsi de suite. 

Terming pour les ranges... mois ll y a 
ous&i les coJonnes ; 40 avans-nous dit r 
D'otcord, mais 40 tolonnes de 7 points 
(bits}.., pour orriver au total de 239 

Um PAGE GftAPHIQUt EST DON CCQM - 
PO Sit PC 2Sff X 192 (24X91 SPIT LA 
BAGATBtLB Of 5376$ POINTS fPiXRS). 

On comprend pourquoi le programme 
chaprds (Basic + langage machine) 
exige plus de 3 minutes pour eff&ctuer, 
POINT PAH POINT, une copie d'ecron (le 
temps de traitement ne dgpasse pos 1 
minute... et e'est seuiement la lenteur de 
I'lmprimanle qui est an cause). 

Pa< centre, on obtient un r^sultot excel- 
lent... el mime de-s ronds ronds (pas 
question da s'endormir pour aufant I}. 
Notureilemenl, il existe un autre moyen, 
plus fopide, mois nous en reparlerons- 




CflMTflL - 
flUHSTER 




POUT — EUEOUE 
REBLOCHOM i"" 
RUTRES 
BRIE 

cnneriBERT 

BRUYER& - 

CHEURE -■ 

ROQUEFORT 



OIACBAMMF O&TENU AVEC IE PROCBAMME TREMPUN MICftO 



... ET LE MiME AVEC LA ROUTINE TOOL KIT.*. 



■swum mESPJFbfam 



CHHTflL 



HUHSTER 
POHT-BUESUB- 
REBLOCHGH 
flUTRES 
BRIE - 
CRIlFHRFRT 
GRUYERE 
CHEURE 

rqquef ort 
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IB9 
105 
IIS 
1 IS 
129 
125 
139 
135 
148 
143 
158 

155 
148 

145 
178 
175 
188 
IBS 

i?b 

1?5 
299 



20 5 
219 
215 
229 

225 

238 
235 
248 
245 
258 



?55 
249 

245 
278 
275 



TEXT : PRINT CHR* (21)1 
0* - CHR* <4''tE* = CHR* 
GOSUB 488: GOTO 280 



285 
298 

295 

38B 
3 (IS 



HOME : VTAB 22 
<2?>:SU = 9 



REM »fl 

REM ** AFFICHAGE DES PARAMETRES »» 
REM *#•#*»»*******■»*#*****«**«***» 

PRINT t VTAB 18: CALL - *5B 

PRINT "PAGE *|S INVERSE : PRINT PG;: NORMAL 

PRINT « - MODE "pT* = "BLANC SUR NOIR": IF M « 8 TH 

EN Tt = *NOIR SUR BLANC* 

print t* 

if 1* < ) then print "image; *i*; : if dr then 
print " - drive "dr 

if sl them print "impr1mante dans le slot 

RETURN 



{ SL 



] 



REM *»#»»**##**« ************ 

REM M ENTREE DE5 PARAMETRES *• 
REM «n ************ 



H . . 



HTA8 I: CALL - 848: PRINT ' 
BET P*sPG ■ VAL <P*i i IF 



<1> HGR 
NOT PG 



<2> 

r he*; 



HG 
PG 



,'SU = 8192 



- 848: PRINT "<1> INVERSE <8> 



<1 
1 



) THEN 298 



VTAB 22 i 
R2 -> 
= l 

IF PG = 1 THEN HGR 
IF PG = 2 THEN HGR2 
TEXT : HOME 
GOSUB 148 

VTAB 22 i HTAB 1 i CALL 
NORMAL -> GET R* 
IF W = CHR* (8> OR R* = CHR* 
M ■ VAL fR*>! IF M > I THEN M - 
POKE I0 t M 
GOSUB 140 

VTAB 22 t HTAB 1: CALL ■ 
T R*i IF R* — * M DR R* > 
THEN PRINT I GOTO 296 
I* = R* 

VTAB 22: HTAB 1: PRINT 1 
T ""jR*;I* = I* + R* 

IF I* < > ■?• AND (I* < 'A* OR If > "Z"> THEN 250 
IF I* < > "?" THEN GOSUB 148 
VTAB 22: HTAB It CALL - 848: PRINT "DRIVE !-2 
'II GET R*: PRINT iDR = 1 I IF R* - "2" THEN DR 
CHR* (8) DR R* = CHR* <I1> THEN 258 
> THEN GOSUB 148 
"?■ THEN HOME s PRINT D*" CATALOG, D"DR: PR1N 
R»: PRINT : PRINT : PRINT :I* * *■ I GOTO 249 
HTAB it CALL - 848: PRINT "SLOT DE L'IMFRl 



848: PRINT "IMAGE -) "; 
CHR* <B> OR R* = CHR* 



GE 
fll) 



IMAGE -> M*j : HTAB 11* JNPU 



? -> 
= 2 



IF R* = 
IF I* < 
IF I* = 
T : GET 
VTAB 22 t 
MANTE ? -> *j: GET R* 

IF R* = CHR* <8> OR R* = CHR* <11) THEN 275 
SL - VAL <R*): IF SL < 1 OR SL > 7 THEN 295 



Vers Uniliallsalion du 
systems 



^ CALL — 958 efface toul 
ce qui vienl a pre* le cur- 
sor !y compris au-dessous| 



I 



DR = Nuroerod© DRIVE 
SL = Numeral de SlOT 



I 

I 



PG = Nomero de page 
(HGH = 1 -HGR2 = 2) 

SU = 9192 qoand oa 
choliir la pog«2 



i 



M = Mode P = Inver- 
se, 2 = Normal) 



IS = Image ft charger 



14 



Nolex Quit est possible 
dobtenir Pe cotologu* en 
Japan! (?) ©1 de revenir 6 
litem pc£ceden1 en ulllisoni 
I un* cki I'ovtre des Heches 
de I'Apple tie ou de ( Apple 

GUY-HACHETTE 



I 



DS = Density (normal 



C os! por ^Ampersand (ini- 
riakse plus loin) que Ton 
ironsmel I'adresse du debul 
de ligjie 6 lo routine en 
ossemhleur. 



i 

i 



P = nambr© de llgrw* 
b lire {1 princi- 
pals + 7 Bous-llgnes) 

D = nombre de lignea 
printrpales {24) 



SI voui destrez en idvoir 
plv5 sur ces 4 lignes [qui 
installenl une courle rou- 
tine an langoge machine | 
repprfez-vous □ ia oage 
juivarilu. 



31 6 GOSv'B 140 

315 VTAB 22! HTA8 1: CALL - 8681 PRINT *<S>IMPLE DENSIT 
E <D>OUBLE " 5 : GET S*:DS =0: !F S* ■ "2* THEN DS = 1 

329 P* = " l A*2088*: IF PG B 2 THEN P* * " ,A*4900 H 
323 PRINT s PRINT WBLQADM* ?P*" ,D"DR 

330 POKE 49235 + PG,0: POKE 49234,8s POKE 49239,9 t PDKE 
49232,8 

335 j 

348 
345 
358 
355 
360 
365 
370 
373 
380 
3B5 
398 
3*5 



8 EM #*****#**#*•**»***#***»**»*•■* 

REM ** IMPRESSION ** 

REM ##**#*****•»**-*****»***•»**»»** 



CHRf (4)"PR£'SL 

print chr* us> 

CHR« (9>"89N" 



PRINT 
PRINT 
PRINT 

IF NOT DS THEN 3S5 
PRINT Et" J 
PRINT Ei-i" : 
PRINT E**Vj 

pRir-rr E*-T8i" 
READ AD:AD = AO * SU:P = 9 
& AD 

PR IT-fT E*"G8288" 
PRINT : PRINT 
P = P + 1 : IF P 
: IF D 



n* jt en carocteres gras si DS = 1 
impression unidirectlonnelle 
coractire ehoisi 



485 
418 
415 
428 

425 D = D ♦ 1 
438 PRINT 

PRINT Et 



1 3 CALL 779 

< 8 THEN 416 

< 24 THEN 400 



435 
443 
445 

458 
455 
4 68 
445 
478 
475 

•J?!? 



■1 55 



490 



Dtp* 
PRINT D**PR£8" 
X ■ 9: FOR I 

EXT 
TEXT 



(34> 



1013 TO 10l5tX ■ X * 1: POKE 1 ,A<X) : N 



495 



t HOME i END 



REM #*♦•»*****»******♦+****•*#*#**# 

REM *» ROUTINE LAN GAGE MACHINE ## 
REM #*********#*»*****»**********» 

l 

POKE 768 ,32 t POKE 769,1 23 t POKE 770,221: POKE 771,32 
s POKE 772,82s POKE 773,231: POKE 774,132: PDKE 775,6 
! POKE 776,133: POKE 777,7s POKE 778,96: POKE 779,168 
: POKE 789,8: POKE 7B1.177: POKE 782,6s POKE 783,133 
POKE 784, 8 t POKE 7B5,162: POKE 786,7: POKE 787,1 65 I 
POKE 788,8: POKE 789, 24 ! POKE 798,74: POKE 791 f 133i P 
OKE 792,8: POKE 793,169: POKE 794,8: POKE 795,185: PO 
KE 796 t B: POKE 797,24: PDKE 79B.181: PDKE 799,10 
POKE 880,291: POKE 881,2: POKE 892,208: POKE 803,3: 
POKE 884,56: POKE 885,233: POKE 886,2: POKE 807, 32 J P 
OKE 888,237: POKE 8B9,253: PDKE 819,292: POKE 611,208 
: POKE 812,239: POKE Bl 3,209: POKE 014,3 92: POKE 815, 
48 

POKE 816,288: POKE 817,219: POKE SIB, 24: POKE 819,16 
9s POKE 820,4: POKE 821,101: POKE B22,7s POKE 823,133 
i PDKE 824, 7 1 POKE 825,96 



TRtMPLIN MICRO 



T5 



I 



590 ; 

585 X ■ Bi FDR I ■ 1013 TO 1015iX - X ♦ 1 aA<X) = PEEK <I 
>: NEXT 

518 POKE 1813,761 POKE I81fl t fl! POKE 1815,833 RETURN 
515 t 

528 DATA 8192 ,8328 ,8448,3576,8784 ,8332 ,8968 ,9068 , B232 ,83 
60,8433,8616,8744,8872,9808,9128,8272,8400,8528,3656, 
8784,8912,9840,9168 ■ 



. Souvegarde des 
valeurs poiM" le CO* 
ou elles s«ral«r»t uiili- 
i&<t% par ail leu r* 



Adresses de* 24 
lignes principalis 



POUR EN SAVOIR PLUS SUR LES POKES ^ is> 



e 300- 


20 


7B Dt> 


JSR 


*1>D7 B 




0303- 


2& 


52 E7 


JSR 


*E752 


LIRE t'EXPLICATION /j> 




8 4 


66 


STY 


*86 


{bos de poge) 


It Gi O 


7- 


{ 




« a t 




r 




DTG 








n u 








fJn nr ri vr set nnr 1 1 n C AL L 779 i 1 i one 4 1 ! 


ft "3 n r , _ 






i 




M(3f typi ITATIHW Ct) 
Line cArLl%_/^ l iun \zt/ 


A ^ ft C — 




y y 


CTA 

9 1 M 


± ft Q 

*■ U O 


Ctrt«"Lnni3 n I nrfrocCa OR nAM f Am 


ra u 1 i _ 
Udl 1 " 




i-. — > 

tf r 


i nv 
LUA 


t ? u / 


V nc'4 if 7 1 **rifTinloii r /Ha h^i i r 1 ! a 

A ©5" mJS y f ^vQ"ipre-ur ae ouuli&j 






"i ,— 




* Q O 


A cnarge avec cor«iof>u 00 tfo 




1 8 




pi r 

L, l_ L 




rtMnuiuTrun Qc reiBnUO 


031 6- 


4A 




LSR 




UtKOlcige o droile le bit / tombfl qoos la rerenuei 


0317- 


85 


8 8 


STA 


♦eg 




0319- 


A? 


n r 


LDA 


£ £0 9 




031B- 


6? 


00 


ADC 


£S00 


On additianne fl + lo r&fefiu« 6 A 


031D- 


18 




CLC 




Noovelle annylotian 


031E- 


65 




ADC 


*0A 


En $0A, il y o 1 ou (scion mode} 


0320- 


C? 


02 


CMP 


e*0 2 


Ob!l«ml-on 2 ? 


0322- 


DB 


03 


BNE 


*0327 


Si non. soul 


0324- 


38 




SEC 




Refenue 6 1 


0325- 


Ef 


02 


SBC 


£*02 


Siou1-2(ain5i, l=3et9^1} 


0327- 


26 


ED FD 


JSR 


*FDED 


Envoi i\ rimprimanfe 


032A- 


CA 




DEX 




X = X-1 


832B- 


D0 


E6 


BNE 


*031 3 


St on n'esl pas 60, ©ncore un iour 


032D- 


CS 




1NY 




Y = V + I 


032E- 


C0 


28 


CPY 


€*28 


Esf-ondS28 (40)? 


8330- 


D0 


OB 


BNE 


*030D 


Non : encore un tour 


0332- 


1 8 




CLC 




Annexation de la retenue 


D333- 


A? 


04 


LDA 


E*0 4 -| 




0335- 


65 


07 


ADC 


*07 


Ofi incrfanente la portie haute de I'ddresse de 504 


337- 


85 


07 


STA 


*07 


8339- 


60 




RTS 




1 


(?) IDD78 


evalue la 


forrnule 


v©nonJ du Basic (ligne 405). via J'Ampersand et met le resultal 


d 


sns FAC. 









SE7S2 va 1ronsform©r ce r^suftal en un eniier . *ur 2 octets- On le recupere dans Y et A pour 
le stacker aux adresftes $6 Qt $7. 

Ainsi, dans 6©t 7, on a Todresse du point il lire sur I'ecran (an depart : $ QQ 20... ou $ 20 00, 
si Ton prefers). 

IDA ($06) V lil la voleur qgi se trouve b Tadresso 6 + Y, mais une adress© eornporte 2 o<tets 
et. en reality on lit h l'odro*so 6 — 7 4- Y... ou, dons lecas pr4s*nt t $2000 -f Y, 



GU V -H ACH ETTE 



GRAPH IS VIE 



DOS 



PfoDOS 



Et voici le 
programme 

IMP.HGR.l 



IL FONCTIQNNE SUR 
IMPRIMANTE5 DMP, 
IMAGEWRITER, MANNESMANN 
ET AUTRES COMPATIBLES. 




»S =i 2 CL 

5 o UJ 



E 



VIDEMMENT. il opgre par group© de 8 
lignes, est entierement en langage 
ma-chine, et se revele done aussi rapide 
que les routines exislant dej6, 
II e$t Indispensable, ou depart, d'mitialiser 
les adresses 253 et 254 par POKE 253,00 et 
POKE 254,24 (ligne de depart et ligne d'arri- 
v4e). SI ton sort plusieurs Editions du rn£me 
graphique, il n'esl pas necessatre de se livrer 
d cette operation,,, sauf si I on desire modi- 
fier le num£ro de la premiere ou de fa der- 
ni&re ligne (icl , la notion de ligne est to meme 
qu en mode "TEXT" ; 24 lignes, de 6 23). 
Prenons on ©xempfe precis ! soit 6 imprimer 
un graphique commen^ant en VTAB 4 el se 
lerminant en VTAB 12. 

On topera ; POKE 253,3 (VTAB — 1) et. POKE 
254,12. D accord ? 

MODE et PAGE 

Par defaul, le logkiei vous tournira une copie 
d'ecron de la page 1 (HGR), en mode normal. 
Attention ! mode norma? signitie, sur le 
papier, blanc dans du noir (comme sur voire 
£cron). C'esl parlait pour les "photos", mais 
pes forcement jolt pour les graphiques. Un 
POKE 6,1 permet d'obtenir J'lmage INVERSE 
(noir sur btanc). 



Pour imprtmer 
POKE 6,2. 



la page 2 (HGR2), taper un 



RAP! DUE 

Si vous utihsez S4E (N) au lieu de S6E (n) a 
I ad res se $6004, vous y gagnerezon rapidile, 
mais vos comemberts seranf ovales. Pour 
impression en double densite, allumez votre 
imprimonte ovant de lancer I'impression et 
dites-lui gentimenl que vous at tendez du gras 
par la sequence suivante : 

PR£1 

PRINT CHR$(27 "I" 
PR£0 

EN CONCLUSION 

Dans un programme Basic, une seule ligne 
feralebonheurdelMP.HGRl r 

10 PRINT CHR${4) BLOAD IMP. HGR 1" : 
POKE 6,1 : POKE 7,1 ; POKE 253,00 I 
POKE 254,24 ; PRINT CHR${4)"BLOAD 
IMAGE. A$2<J0O" _ CALL 24576 

Toutes les voriontes sont possibles. 
Le programme n'est pos relogeable, mais si 
vous disposez d un assembteur. il strf f il de 
modifier Padresse ORG $6000 (ligne 7) pour 
I'instoHer oilleurs, Attention 1 il est un peu 
trop long pour §tre place a I'adresse $300. 



TREAAPUN MICRO 



m***wm*mmmmw±wmmmm<%mw»mmm* 



Assemblage par ProCODE 



6000: 


A5 


D7 






6002: 


18 








600:3: 


69 


3A 




3D 


SOOSi 


C9 


3C 




31 


G0D7: 


FO 


02 




32 


S0C9 : 


A9 


1C 




33 


6LVJB- 


96 


07 




34 


6D0D: 


AS 


FO 




35 


5DQF : 


C9 


17 




601 1 : 


90 


02 






6013! 


A9 


00 




36 


501b: 


85 


FO 




39 


6017: 


AS 


FE 




40 


6Dig : 


C9 


IB 




41 


6D1B: 


90 


02 




42 


6010; 


A9 


IB 




43 


601F: 


BS 


F£ 




44 


6021: 


A9 


01 




45 


6023; 


30 


95 


FE 


46 
4? 
4/1 
49 


6026: 


A2 


FF 




SO 


6028: 


E8 






SI 


6029: 


BO 


C6 


60 


62 


602C: 


20 


EO 


FD 


53 


602F : 


EO 


1? 




54 


6D31 : 


00 


F5 




55 
56 
67 
58 


6033! 


A2 


FF 




59 


60 35 : 


£6 






60 




RD 


OF 


60 


61 


6039: 


20 


EO 


FD 


62 


60 3C: 


EO 


07 




63 


603E: 


00 


F5 




64 



65 
66 
67 



stvaooaoe B«o«»ft^oi4m«»fl 

1 * CDPIE HGR SUR IMAGE WAITER, OMP fit (AHESMANN MT 85/86 * 

2 ft — 

3 * GUT-HACHETTE TflEIIPLIN MICRO N0VEM8RE 85 * 

s one $600D 

£ * . — ^ — • 

*? * Pour utiliaer, charger le programme par flioad CDPHGfl * 

B * POKE 6,D pcur MODE NORMAL ou POKE 6,1 pour INVERSE * 

9 * POKE 7,1 pour PAGE t ou 7,2 pour PAGE & * 

10 » POKE 253,n0<n23 (ligne dibut] POKE 254 1 N>n<24 (Fin] * 

11 * (Jigne debut * □ par defaut et ligne fin ■ 23) * 

12 * — — * 

pour NORMAL et \ - Inverse 
i1C= Hgr - $3C= Hgr2 
Adresse de base de la ligne 
partifc haute 

Nom&re de iignes (0 p/d4fflut) 
Derni^re li£ne (23 p/defaut] 
Longueur de la Ligne 
Tampon de 7 octets 
Calcule 1 'adresse de base 
Equivalent de Pr£0 
Pour PrEI si A contient t 
Vera Imprinanta 

WJTE £T DIUEflS PDINTEURS * 
« 



13 


MODE 


£0.1 


$06 


14 


vpace 


too 


$07 


15 


A8AS1 


EOU 


i'ud 


16 


ABAS2 


FIJU 


$09 


T7 


NLIGN 


EQU 


$F0 


18 


FLIGM 


EOU 


$Ft 


19 


HTAB 


EQU 


$FF 


20 


STOCK 


LOU 


$18 


21 


BASCALC 


EQU 


IF0C1 


22 


SETVIO 


EQL 1 


$FE93 


23 


OUTPOBT 


EQU 


EFE95 


24 


GOUT 


EQU 


IFOEO 


25 


# 






26 


* INITIALISATION 


37 









5tld 



LOA 




r:. n 


AOC 


E$3A 


CMP 


E$3C 


BEQ 


Etp 


i n a 


E$1C 


5TA 


t/pa£e 


LOA 


Nlign 


CMP 


E$1? 


BCC 


Slid 


LDA 


ESQ 


5TA 


Nlign 


LDA 


FHan 


IMP 


C$18 


KG 


Stlf 


LOA 


C$18 


STA 


Flit n 


LDA 


£$01 


jsn 


Out port 



s 



Impri»antB dana le SlDt 



INITIALISATION OE L ' IMPRIMANTE (DEPART) 



■J 1 



LOX 
INX 
LOA 
JSfi 
CPX 
9Nt 



E$FF 

TAfll.X 
Gout 
C$1? 
<i BO 



* "G02BQ' 

# - 



ENVOYE A L'lMPfllMANTE (QUI ATTEND UNE 



LIGNE) J 



1NIT 


LOX 


E$FF 


JBD 


:nx 






TAB2.X 






Cout 






f:$n? 




BNE 


4BQ 


» 










ADRESSE 


* 







II 



GUY-HACHETTE 



£ □ $ ] • 


A9 


00 

1 1 1 - 




66 




LOA 


E$C-0 




Longueur de li£n*> a zero 


6042 : 


as 


FF 




69 




GTA 


Htab 




6044: 


A5 


FD 




70 


OEBUT 


LOA 


Nllgn 




6046 : 


20 


CI 


FB 


71 




j 5 ft 


Bascalc 


* 


L'adresse est dao« $28 & $29 


6049: 


AS 


28 




72 




l DA 


S26 






604B: 


65 


FF 




73 




A L L, 


Htab 


| 




6D4D: 


SS 


D8 




74 




6TA 


Abesl 




Partie basse siocKee 


6Q4F: 


AS 


29 




75 




LDA 




f 


Becupferatian p«rtia haute 


6DS1 : 


65 


07 




76 




ADC 


Vpage 


R 


a laquelle on djout« f1C/f3C 


€053: 


85 


D9 




77 




STA 


AbauS 




a v s n t de la 3auvB£i3rLrer 










78 
79 


* 


ZONE 


DE ST OCX A BE MISE A TERO < »1B-$1E} * 










BO 










- ----- _„„ * 


605S : 




07 




Bl 




LDX 


E$07 






6QS7 : 


A9 


1 1 r 




62 




. DA 


e$oo 






6059: 


-■ -i 


17 




83 


f BG 


STA 


StQck-1 ,X 






6058: 


:;a 






84 




r;r x 








60SC £ 




FB 




85 






f BO 














86 


B 


















97 




PREPARATION DES 


7 COOEE DU CARAC GRAPMIQUE * 










8B 




Sopt ootota ppjr 


iaiprimer 1 ooraot^rs gra- 










89 


I 


phlquo 


, le 1/40* 


de 


Id «l£fic L £uu ft " **UJ 










90 












60SE: 


AO 


oa 




91 




LD¥ 


£$0B 






6060: 


A2 


DO 




92 


InltX 


LDX 


£S0D 






6DG2: 


A1 


oa 




93 




LDA 


( Abas1 r XJ 


f 


1 pr t nrp i^rlpp^^iTirt* ifitlirfict 


6064: 


4A 






94 


Becfll 


L5R 


r 


HAi" a 1 a □ p fi rt rn i ^ p 


6065: 


76 


iy 




95 




RLfi 


Stack jX 


f 


1*4 rpf pn iip pnf rp A HAUL?. hp 


6067: 


EB 






96 




I NX 








&068: 


ED 


07 




97 




CPX 


E. $07 




c; Ft rtfi a f a< t terming' 


60 6 A : 


nn 


FA 




98 




BNE 


Decal 


■ 


sinon nouveau decalioe 




AO 


04 








LDA 


t*04 


I 


fin 1 1 a m -i Inroi* 1 m n AfFf t i i 1" P 
Ull Va Ina 1U[ el la \joi lal "OM V* 


UUOC i 


1 A 




i in 




CLC 




1 


Hn ttnii i ftji /rifT* 1 n?Ai mup pre- 
cis auu LUM/UU lUtfl pwUf |J»!* 


606F : 


-j — 


HQ 




tDI 




ADC 


Abai?2 


■ 


p f i r> i I ji 1 ■ t n c Chi j n r P 
}Q l o l rj i i v uc aui van lq 


fid? 1 ■ 


•35 


no 




t as 




STA 


Abas2 


- 


irwnidiatemtnt reinstallee 


6D73 • 


HA 










OET 








6074: 


QB 

U U 






104 




BNE 


InltX 




SI < y de zero, encore an tour 








10S 










* 










105 


• 




IMPRESSION 


DU CARAC TEflE * 










107 


• 










6d?6: 


A2 


FF 




10B 




LOX 


£1FF 






607fl: 


EB 






109 


BCAflAC 


INX 








6079 : 


85 


16 




T 10 




LDA 


Stack, X 






6078 : 


A4 


D6 




I 1 1 




LDY 


Mode 






607D: 


EQ 


1 




a. ■ A 

! 1 2 




CPr 


ES01 






6D7F : 


F0 


02 




113 




BEQ 


Filtre 






6D81 : 


49 


Ff 




114 




EOR 


EtFF 














115 


* 


















1 16 


* Fit F RAGE OE 100 $80 




ET $9A (CTRL-13 ET CTflL-Zl * 










117 






























60B3: 


C9 


OD 




MB 


FiLTRE 


CMP 


£$0D 






60flS - 


Ffl 
r u 


HF 




1 T9 




BED 


Chanc 






6087: 


ca 


BD 

W St" 




120 




cup 


ES80 






6089: 


FO 


OA 




121 




EE \j 


Chans 






6QBB: 


C& 


1 A 




122 




UUP 


p 








FD 


06 




123 




BE 9 


Chano 






60BF: 


C9 


9A 




124 




CMP 


C$9 A 






6091 : 


FO 


02 




1? c , 




BEQ 


Chano 






£093: 


00 


04 




126 




ONE 


Graph 




Un z&ro rtntrt a gauche... 


6Q9Sj 


4A 






12? 


CHANG 


1 f,F, 




6096: 


4A 






i;?H 




L£R 




j 

! 


... et un second 


609?: 


DA 






129 




ASL 




r 


Un zero rentre a droits... 


6096: 


DA 






130 




ASL 




l 


. puis un second 


6099: 


20 


EO 


FD 


131 


GRAPH 


u'Sh 


Cout 




6D9C : 


ED 


06 




132 




CPX 


E«6 




Si $6, on a t«r«ine 


6D9E: 


00 


OB 




t33 




BNE 


BcarflC 






60AD: 


E6 


FF 




134 




INC 


Htab 






60A2: 


AS 


FF 




13S 




LDA 


Htab 






60A4: 


C9 


28 




13b 




CUP 


£f2B 
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IMP.HGR.1 



(suite) 



6PA6: 
6QAB: 
60AA: 
6QAD: 
60AF: 
60B1 : 
60B3: 
SOBS - 
6:169 : 
60BA : 
60BD: 
6C-BF : 
6DC? : 
6DC5: 



SCC6 : 
6DC8: 
6GCB: 
6DCD: 
6CCt : 
6DCF i 

6003; 

6004: 

6005: 

6 OB 6: 

6009: 

60DA- 

6006: 

60DC : 

GOOD: 

6 DOE 

60E0: 

60E1: 



OD 9C 
A9 DO 
20 ED FD 
E6 FO 
AS FO 
CS FE 
FO 03 
20 33 60 
A9 IB 
20 ED FO 
A9 63 
20 EO FO 
20 93 FE 
£0 



00 09 
3B 30 4E 
00 IB 
3E 
IS 

4C 3D 31 

30 

TB 

6E 

IS 

54 31 36 

IB 

SA 

09 

SA 

00 

DO 00 
IS 

47 30 32 
3B 30 



13? 
13B 
139 
1 .1 J 
141 
142 
143 
144 
145 
146 
14? 
14E 
149 
!-,□ 

tsi 

1S2 
153 
154 
15S 
156 
15? 
15S 

1S9 
16C 
161 
I 6? 
163 
164 
165 
166 
16? 
166 
169 
170 

1?1 



FIN 



# 

TAB 1 



TAB 2 



BNE 
LDA 
J5R 
INC 
LDA 

l:mi 

BEE 

JSR 

LDA 

JSR 

LDA 

JSR 

JSR 

RTS 



Debut 

C$00 

Cowt 

Nlign 

Nlign 

Flifin 

Fin 

IniC 

[5 16 

Cout 

E$G3 

Cout 

Set* id 



Posi tiDnn«m*nt marge gauche 



ASCII V: imprintantt normals 



TABLES PDUR L ' 1MPRIMANTE 



Unidirectionn*] 



HEX 


0009 




ASC 


' 9 ON 




HEX 


0D1B 




ASC 


'> 


1 


HEX 


IB 




ASC 


'LQTO 




HEX 


5 




ASC 


'n 


1 


t-EX 


IB 




4 E B 


'T16 


| 


HEX 


IB 




ASC 


'I 


*, 
1 


HEX 


09 




ASC 


'Z 


9 


HEX 


DO 




HEX 


OOOD 




HEX 


IB 




ASC 


' G02BD 





Fait les camemberts rands, 
mala mains rapids que N 

Interli flna£B appropri£ 

ftaconna'it ie fle bit 

Pour suiter interferences $9 



Table dea symbales ordre alphabetique 



-ABASt > 
-CHANG. - 
■FILTRE. 
■HTAB, ri 
-NLIGN. . 
^SUf ... 
-TAB2. . , 



SiWie -ABAB2 $0009 

. $609$ -COUT iFDED 

.$6083 -FIN 16 DBS 

■ $ODFF -INI7 $6033 

$OOFD -OUTPORT. . .$FE95 

-S601F -STOCK $0019 

SbODE -VPAGE $00D? 



-BASCALC 
-DEBUT . . . 
-FLIGN . 

-InltX.... 
-SET V ID.. 
-Stp 



$F8C1 
.$6044 

$00F£ 
. S606D 

SFE93 

S60GB 



-BCARAC $607fl 

-Decal $6064 

-GRAPH. $6099 

-MODE $0006 

-Stld $6015 

-TAB1 ..... .$60C6 



VERIFICATION : 



Souvez votre programme par un BSAVE IMP-HGR.1 , AW576 L230 
T = Q FOfl I ■ 2i576 TO 24575 + 230 ■ T = T + P££K{I) : NEXT ; PRINT T to rtoultal devra Afro ! 2MU 

R^CLAGESCONSEIUiS 



CARTE SUPER SfcRIE 5WI 1 2 3 4 5 t 7 012 l 2 3 4 s 6 7 

1 OH 



Q OFF 



DMP 5WI 8 7*54J2| 



SW3 $765432 1 



C OFF 
1 ON 

a OFF 

r on 



1WR SWl ft 7 6 5 4 3 2 1 



I ON 
D OFF 



OOFF 
ION 



SW2 4 3 2 1 



OOFF 
1 ON 
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CARACTERES PERSON NAL1SES 

sur DMP et IMAGEWRITER 

PROGRAMME BASIC i CARAC. 1 .0 (qui appelle CARAC.C. routine en L.M.J 

OPTIONS : Apres un RUN, le menu general s'affiche ef propose plusteurs grandes opfions, 
Choisissons la premiere, et aussi la plus interessante. 



CRIER UN CARACTERE 



C'est la raison d'etre 
de ce long pro- 
graming, avec loquol vous pour re* croer un 
caracifcre... el mime urne police complete de 
caroc teres personnolise* (96 max i mom, 
I'espace cornpris). 

Lortsque vous choisrrez ('option I, une grille 
VaHiehera sur voire ecran et vous devrez indi- 
quer la lorgeur du ou des caractires a cr£er, 

Pour une fanle normale, cettelargeur sera de 8 
points, mate noubliez pas de' reserver une 
colonne de blanc pour separer vos caroet&res. 
Si vous lope? | cT«t-.E~] , un example de 
coraciere s'inscrira sur votre ecran. 



Pendant loule lo sequence de creation. H vou* 
suffira de pressor lo barre d'espacemoni pour 
transformer le point en asttfrisque ou vice 
verso, etant enlendu que paint = non impres- 
sion et asterisque jP impression. Pour vous 
deplacer utilteez alors les f leches de L' Apple. 

O'une maniere generate, les coractfrres uilll- 
sent les oiguilles T 6 8 de I'imprimante (lignes I 
a 8), mote les g, j ( p, q el y, ainsi que les q ef 
certains signes de ponctuation font oppel aux 
aiguilles 2/9. 

Laisser le loglcieJ toire son irovoil et ne soyei 
pas surpris, apr&s | esc | si une leltre basse 
remonle d'un cron. 

Si vous vouliez que tous vos earac teres soieni 
Imprimis ov#c les aiguilles de 2 6 9, H vous wh 
firait de tes dessiner a portir de lo 2° ligne — lo 
programme ferait le reste. 

FAUML DEMANDER L'IMPRESSION DE CHA- 
OUE CARACTERE. AU FUR ET A ME5URE OE 
LA CREATION ? 

Oui, ou moins pour les dix ou vingt premiers, 
pour ftlre *ur que 1ou1 &e passe bien> II seroil 
inutile de perdre uno heure... pour un rebuild 
nuKr. ou decevant. 

Ensuite, nous vou* conseillons de n'imprimer 
les corocieres d£|A crees qu'une tote sur cinq. 



Si lo softie imprimante devient soudoinement, 
mouvaise, Cest porce qu'un caractere a profon- 
dement d6plu a voire chdre mocKine. 

Elle n'occepfe pos les va(eurs 13 et 141 
(RETURN) qui la periurbem ! 

II 5uf Fir de modifier legeremeni le dessin pour 
reportir d un ban pied mais attention ! 

Pour redessiner un caractere existant, loper 
ct«l-oJ qui affiche les noma des lettres 



deja crepes, puis indique quel esl teiul 6 rederi 
nir. Si vous utilteez Ja touche l ctrl^f | , vous 
obtiendrez auiomaliquemenl I'offichogo d©5 
earoeleres exislants, apr6s choque creation, Un 
simple | escI vous rarnerverc alors a I'optlon 
creation. 

En fait, I ctrl f | etant une bascule, un nou- 
vel appef d ceite fanction... lannulera. 

IMPORTANT La Iettre-cl6 d4signanl dioque 
' caractere personnalise da It etre 
"affichable". Done, pas question d'utiiiser. du 
mains avec ce programme, de valeurs fnfdrleu- 
res a 32 (ESPACE) ou superieures 6 127 
(DELETE). Natureltemenl eet utilitaire autarise 
bon nombre de fanioteies.,, grophiques, pourvu 
que celles-cl soient contenues dons les limites 
dejo indiquees : 16 pis de large pour 8 pts (uti- 
les) de haut. Void quelques exemples de carac- 
t6res tr^s sp^ciaux, realises de cerfe maniere 
()6 pts..- sons colonne de blanc... sur B pis). On 
les appelle per 1, 2, 3, 4, etc. ; mate on ourolt 
evidemment pu chateir d'autres lettres^cleN. 

a, as a — ♦ — u mm 
cl caa ESI A wfl HID 

CONSEIL Lisez oltenlivement la lisle des fonc- 
Hons (ou verso do cetie flcKe) Ette 
vous donnera de bonnes indications sur la 
monfAr* d'utitteer CARAC.l .0. Ne manquez 
pas, par ailleurs, de nous indiquer les difficul- 
1es rencontr^-es. Nous mettrons au poinl 
ensemble, une version LI plus perlormonle f 
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CREATION ET MODIFICATION 
DE CARACTERES (COMMANDES) 

BAKRE D'ESFACEMENT • 5 i • et ■ » - {bascule) 
4 (ou CTRl-U) | Vers la dr pile 



♦ {ou CTRl-H) 

♦ (ou CTRL-K) 

♦ {ouCTBtJ) 



Un vgrul wrKwr 
t$\ ill I' rile 



Vers 'a gouche 
Vers to houf 
Vers le bps _| 
CTRL-N E Permet de redef inir la largeur 
CTSL-P Ajpuf e une colonne □ la gri I le (a df oite) 
CTRL-L : Supprime une calonne {b drafcle) 

REAFF1CHAGE DUN CARACTERE 

CTRL*R : RetrcKe le tterniercarattere cree 
CTRl-A : Restjtue le dernier dcron de creation 
CTRL- ; Affiche les noms des carad^res rfe[a 
cr46s 

CTRl-f : Rend cet atfkhgge wtomjiique jmais 
c'est une bascule, ei on I'annult par un 
second CTRL-F)- 

On sort de tes deux sequences en lapant la 

lettre-de... au par ESCAPE. 

DEFLACEMENT OU CARACTfeRE 

II es1 possible de rnouvoir le carocfere 6 
Imtdrieur de fa grille (en casd'erreur, recu- 
peration du dernier £cran par CTRL-A). 

CTRL-D : Un ptfirrt vers la droite 

CTRl'G : Un poini vers la gauche 

CTRL-Z Un poin? vers le timrt 

CTRL-W ■ Un poini vers le bas 

EXEMPLE DE TRACE: CTRL-E 

FIN DE CREATION : ESCAPE 

Indiquer ensuite la tettre-cl£ (ou ESCAPE 
pour revenlr) 

CATALOG DE DfSQUETTE : ? 



MENU GENERAL : Top* CTRL-C 



RECUPERATION DES PONTES 
GRAPHIQUES TOOL KIT 
ET CHAT MAUVE 

Choisissez t'option 4 du menu, puis Cjr) pour 
TOOL KIT chi <e) poui CHAT MAUVE. 

Attention I le choix (£) ne vous autorise pas 
a charger une fonfe graphique (meme person- 
nelle), mats une police de caracteres personnel- 
Hses cr«|£e suivani les normes de CARAO.O. 

Par contre, une FONTE comme FAIRE.F1, {n°1 
de T.M.), peut etre consideree comme un pro- 
duit TOOL KIT, Pour I'utillser lo renommor en 
lui c|outerol "-SET"... el marc hero I 

En cas d'etre ur de lecture, tapez GOTO 10QCKS, 
puts reneuvelez voire tentative. Naturelle- 
ment, tes caracteres crees a partir de la dis- 
quette TOOL KIT ne comportent pas de lettres 
accentuees, mois vaus pourrez les modifier a 
volonte. 

D'ailleors, apr&s transformation de la fonte, le 
programme ohotaH pour vous I 'option 
'creation-modification'',,, et vous vous trauvez 
en presence d une grille de S pis de large. 

Tapez I ctri-oH L »i | a |i.j.w des eoract^res 
disponibles apparori. Vous pourrez les passer 
success! vemeni en revue en repondant par la 
tatlre-c)4. puis par un nouveou | ctni-oH . 
ainsl de suite. 

En cas de modification, la sequence se terml- 
nera par [escape I , 

II peut £!re Interessanf, immediatement apres 
lo creation, de revenir au menu general (CTRl- 
C), puis de demander ('impression du fichier. En 
cas de plantage, naccusez pas votre impri- 
manfe, ma Is les codes dun coraclAre. II foudra 
vous (aire une raison et les passer fous, avec 
impression, eorocrfrre par caracl&r*. 

SI vous disposer d'une police de 95 ou 96 carac- 
teres, le programme vous imprime une poge 
complete, Dans le cas confroire. II vous fournii 
les caracteres disponibles, les uns a (a suite des 
autres, en mode normal, puis expanse. 

N'oubllei pas de souver votre fonte (Menu 
general). Meme si le litre apparalt sur 1'ecran, 
n'oubliez pas non plus de le volider en le 
relapont, 

Ef en cas de pepin - GOTO 10000. 
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UTILITAI RE 



ProDOS 



GUIDE ^UTILISATION SUR LA HCHEN^i 



CARACTERES 
PERSON NALISES 

sur ImageWriter et DMP 



Avei-voua de-jai essays d* cre*r des 
taracl&res pttr*onnalis£5, sur votrc 
imprtTiionte ImogeWrHer au sur 
voire "vieillft" DMP (nolei qu* nos 
prog> amines roncHonncnr oussi sur 
rimage Writer /(, el prabablemenr 
sur drvers compatible*,,, mais sons 
aucune garonlto) ? Ce n'est pal 
facile— saul quand on salt... bien 
sftr., et encore, certains problimea 

Nous vous pri*«ntons ici une boHe- 
rie de programmes qui devratent 
rwrrnalemeni r£pondre a vorre 
often**, Us vonr vous poroTtre longs, 
tfovfc durions ceftes pu le* abreg&f , 
mais au detriment ie la presenta- 
tion La plwpart d'entre nous s'adan- 
n*nt a la pr ogrammoHon par jeu plus 
que par netesilte. Paurquoi n« pos 
it tolre plaisir en d*platant par 
example des faran* ? 

P*r»enfve n'interdit au* plus matins 
de se meMre a pluaieurs pour 'Yen- 
irer" un programme... ou encore 
d'ulitiser le* competences do legr 
chafrsKinle epouse j[au ipoujc... car 
rwus connotssons qussi d'extel lentes 
odfrptes de la pragromrnallon}* Ct 
que l"en ne vienne pas nous accuser 
de publier de* "trues inlerrmnQblea 
fairs pour obtiger les bcwines gerre a 
acheter nos disquelres" {dixit un lec- 
leur pas content qui nous precise les 
avoir a I'ceiL. cher «n dentists en 
voi(a au rnewn* un qui n'o pas la dent 
con. Ire... exwsei-moi, je divague 1 \, 

I CARACTERES PERSONNALISES 

(Bnic) 

Sterltlez minutieusement voire pro- 
gramme avant de li lancer. Tout y 
esl important, el narornmfl-nl la 
voleur de LOMEM Ne modifiei pol- 



io synlcxe oo les term*s choisis pour 
les comm»nlatres, sairf si vorre texte 
«st PLUS COURT que le ndtre... car 
l J arrivio lail dans un mouchoir de 
poche ! Consults lo fiche numiio 6 
de Tremptln Micro avoni de lancer 
3c RUN decisif U n*t indispensafale 
de connoTtre un certain nembre de 
"CTRL" pour liror le meiHeur pant 
possible de cet utiiilolre. Nous 
j'avens longuemcnr lest6 (irois Ion* 
les -p"-: n dont une de gros 
caracteres, figurant sur la dtaqueHe 
nuro<ko 6. et ant f ACILEMENT el* 
r^alise^es ovec ce programme! , mais 
d»s errewrs peuvwnl subsisler, 

Dan* taus les ca*, un GOTO lOOM 
vous permoMfQ de retrauwr voire 
AAENU. 

2. CARACC 

C'es» la rouline en fangoge fnachine^ 
Le programme source est sur la dls- 
quetl* (encore eHe. excu&ei-moi). kl 
n'^tail vraiment pos possible de le 
publier dans ce numdro, deja itw* 
comple* (rtaw* avons du ojouter 4 
pages au rout dealer momenl I ) 
Inutile do priclser que cheque octet 
y ebi non seulwment imporiani, mais 
mdisp*nsobJe. CAftAC.C occeSere 
ccmsiderablemenl ie progrdrmrrie 
Bosk- C'esl so raisan d"£tre- 

3. CARAC.CHARG 

Quand vous aurez realist votre pre- 
miere femle de coraderes, vou* uHlf* 



serez CARAC.CHARG | Basic) •? 
CARAC.CH (1M< page suivantfl) pour 
la... charger dans votr* imprimanl*. 
Normalemenl, lo balterte de pro- 
grammer des "Caracreros personna- 
llsii" prend fin id, mais nous ovons 
voulu e1re plus compJets Qvet i 

CARACVISU d« u * «« rt » 

n*s {la premiere en 
Basic ei la seconde on longage 
machine | vous permeflronf de visua- 
lise* yne 6 une (p*ul-4tre avanl de 
ies transJorm*r en caractcres per- 
lonnalises), l*s polices de car ochres 
figurant sur to dtsquetle TOOL KIT 
APPLE (DOS 3.3.5 E^icace «l 
pratique. 

CADRE SPECIAL (Application) 

On p«ui assur^menf tracer un 
cadre... uns grille, etc. on orilisanl 
do* caracieres personnalis^s. et 
sans aucun* ditffcculte. vous en 
doui« ( ^apez les quelques KflMft de 
I a page 33 . . . #t un RUN $our a d£f ini • 
tivemant vou* cgovaincre. 

DERNlERt REC0WMANDAT10N 

Re^g^ez ev¥>nluellemeni vas intefrup 
leurs DIP en conformity avec les indi- 
cations de lo page 20 du present 
numera, Craphisme ou caracteF*s 
peTwnnolises.. c'esl le m*me 
combat I 

El mainlenanl, a vous de fcouer, ef 
que I on ne vienne pas me reprocher 
mon exlre^me concision ! G.-H. 
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Cii lexte esl edil6 ovec une forte 
SPECIftLE. sur lo nouvelle iitiprimonte 
I moge Writer II d' Apple 
en caractfires semi -compresses* 
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I CARACTERES PERSON NALISES 1 1 



m LCMEK: 22485 

]]B TEXT" ; PRINT CHR* (21): HOME 
128 GOSUB 3B?8: REN INITIALISATION 

.:& : 

3 40 REM •« EN GUISE DE MENU GENERAL tM 
JS8 : 

itf IF R ( > 3 AND N THEN 798 
171 TEXT ; GOSUB 3568 

186 VTAB I61 CALL LS: HTAB 13: CALL B: PRINT 1 
t H I X -) '|! GET R*: IF Bt < "3* OR R* 
> p e - THEN PRINT ! GOTO IBS 

IH FLASH : PRINT R*; NORMAL 

288 EF R* = THEN GOSUB 3398: GOTO 1 88 

218 ON WM. <R*> GOTO 79B,468,4B8, 2479, 228, 24B 
,3299,258 

22B IF NOT Bt AND HOT CF THEN HEi = "PAS DE 
FICHIER BINA3RE EN MEMQ:RE"; GOSUB 348: CDS 
UB 298; GOTO 188 

238 PI * 1: GOTD 1598 

249 GOSUB- 3398: GOTO 168 

256 TEXT ; HOME s GOSUB 358: PRINT "lOOTO J 888 
8 POUR REDEHARRER" 2 VTAB 28: END 

268 : 

278 REM »»* SOUCLE 5'ATTENTE 1 HftIT **« 
288 1 

2?8 FOR I = J TO 1SB8: NEXT ; RETURN 

388 CALL Gi POKE - 16348,8; »IT - 16384,128 

,127: POKE - 16363, 8:FV = PEEK < - 16384> 

: RETURN 

318 : 

328 REM «■ AFFICHABES REPETI7IFS ♦»• 
lid : 

348 VTAB 19: CALL G: CALL LSi KTAB INT (41 - 
LEN (HEW) / 2: PRINT HEtt RETURN 

358 VTAB 21 : CALL FL: RETURN 

368 FDR I = 5 TO 13: VTAB I: PRINT LEFT* <TL» 
,N> ♦ LEFT* (VI, 17 - N>; NEXT : RETURN 

378 Rt = \": IF R = 12 THEN R* = 1 * 

388 FDR £ = 5 TO 13: VTAB tt HTAB Nt PRINT Rt: 
NEXT : RETURN 

398 : 

488 REM *** FENETRE EN BAS DE L'EtRAN *M 
418 : 

428 POKE 35,24: GOSUB 357G: VTAB lie CALL LS; 
PRINT : PRINT T»: PRINT 1 RETURN 

438 : 

448 REM **» PLUS OU MOINS 1 CASACTERE Hf 
458 : 

468 IF CF THEN CF = CF - I :FS = FS - N - 2; CA 

LL G: CALL Gi GOSUB 538 
478 GOTO IBB 

488 IF CF < 94 THEN CF = CF + i ;FS = FS ♦ H + 
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2: CALL G: CALL G; GOSUB 538 
4?B GOTO 1B» 
588 : 

518 REM ♦*« LE DERNIER CARACTERE EST: «*» 
528 : 

538 VTAB 28: CALL FL: PRINT ' DERNIER CARA 
CTERE : *;: INVERSE J PRINT CF" NORMAL 
s IF C<CF,i> THEN PRINT T CHRt CC<CF,1)> 
•>": GOTO 558 

54B INVERSE x CALL G: PRINT 'HON CREE* ! NORMAL 

558 GOSUB 298: RETURN 
568 1 

378 REM AIGUILLES DU HAUT 00 DU OAS #*• 
588 : 

598 X = 8:Y = B:HM = 6:PL s 1 

688 FOR J = 8 TO N - I 

619 IF PEEK <A(3> * J) < > 174 THEN X • 1 

628 IF PEEK CA<?> * J) ( ) 174 THEN Y = 1 

638 NEXT 

648 IF X * Y = 2 THEN VTAB 17: PRINT t CALL 6 
: CALL FL: PRINT "T R P*t CALL FL: IMVERS 
E 1 PRINT * HAUTE ": NDRWL :tfl = 1: GOTO 9 
38 

658 IF Y THEN PL = 2i POKE 4,N: POKE 24,9: CAL 

L 13114 
668 GOTO 1248 
678 : 

688 REM Iff DEPLACER LE CARACTERE «»* 
698 i 

789 GOSUB 351 8: POKE 6,NH:ES - 1 

718 IF R = 4 THEN CALL 13194 

729 IF R « 7 THEN CALL S3225 

739 IF R = 23 THEN POKE 24,1: CALL 1313 4 

748 IF R ■ 26 THEN POKE 24,8: CALL 13114 

75B GOTO 938 

768 ; 

778 REN »« TRACE DU CARACTERE Hi 
788 : 

79B GOSUB 3758 

m i f not cf mt> not n then 848 

811 IF N THEN 989 

828 N = ASC < MID* <COM.l» - 64: IF N ) 14 

THEN N » N - 32 
aSB GOTO ?B8 

848 VTAB 35: HTAB I : CALL G: PRINT "LARGEUR 7- 

(6 ";:R* = " 
85B GET Bt:B * ASC (B») 1 IF B « 27 THEN N ■ 1 
6: GOTO 918 

m IF & > 47 AND B < 57 AND 6 < > 13 THEN P 

RINT 8*;:R* = R* + B*: GOTO 858 
879 N = UAL (R*):L = LEN (C0*> 
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838 IF L WO NOT N THEN N = L - 7 

B93 IF N C 7 DR H > 14 THEN B49 

988 IF N < > 16 THEN FOR J = 5 TO 14: VTAB ! 

: HTA8 N + I; PRINT LEFTf M,\6 - N) : NEX 

T 

Plfl PRINT : VTAB 15; CALL FL: PRINT "L-> ';i I 
WERSE : PRINT N;: NORMAL ; PRINT " "AL* 

P2( IFF THEN GOSUB 211B I f 

938 H = 1^ = 5 W " tfn " m **** '* 

»« REh flNERTOOTO 4141 1 
958 PRINT H, i WAB V: HTAB Hi SET R* 
948 CALL I3474:R * ASC (Rt)i IF R * 32 THEN 9 
5H 

978 IF ft ■ 21 AND H = N THEN 12B9 

9S8 IF R » 11 AND V * 5 THEN !288 
IF R = 18 AND y * 13 THEN! 1219 
3369 IF R = 8 AND H = 1 THEN 1288 
1818 IF ft = 21 THEN H = H + I 
1(2* IF R = B THEN H = H - 1 
IB38 IF R = 18 THEN V = V t| 
1848 IF ft = 11 THEN V = V - 1 
1858 IF R = 1 AND E5 THEN 1 EB = 8; GOSUB 35Z8i 13 

dto m 

1848 IF R = 3 THEN ES = I s GOSUB 35I8t GOTO 169 
3878 IF R = 4 THEN W = N - 1: 60TD 788 
1888 IF R - 5 THEN 6DBU8 351 8 i GOSUB 3438; CDS 
UB 3528 

1898 IF R = 6 THEN F = ASS <F - 1 >! IF F T«N 
ft= 15 

1188 IF R = 7 THEN HI = N; GOTO 7BB 

1118 IF R ~ 12 AND H > 7 THEN GOSUB 378 tN ■ N 

- I J 60TD m 
1128 IF R * 34 THEN GOSUB 3548: &OT0 &4B 
1138 IF R * 15 THEN GOSUB 2119 

1 148 IF R = 14 AND N ( 36 THEN N = N t 1: GDSUO 

378: GOTO 91 B 
1158 IF ft = IE THEN GOSUB 2228 

1149 IF R * 23 OR Jf = 24 THEN NM = N: GOTO 788 
1178 IF ft = 27 THEN GOSUB 3518:ES = Is GOTO 59 

8 

1188 IF ft - 63 THEN GOSUB 3398: GOTO 938 
1198 GOTO 9-58 

1288 POKE 6,58 i POKE 7, It CALL 139*7; POKE 6,5: 
POKE 7,3 s CALL 13947} GOTO 959! REN AVERT I 
SSEMENT SQNORE (LIH1TE5 D£ LA GRILLE) 

1218 ; 

1228 REM »« OU TL EST QUESTION DE 8181 
1238 : 

1248 GOSUB 3518: REM SAIVEGARDE ECRAN 

1251 FOR 3 = 5 TO Ift VTAB I; HTAB N » 2: CALL 

FL? NEXT 
1269 FOR I = 1 TO N 



1278 2 = USft <AU)>: POKE 8, PEEK <6>: POKE 9. 

PEEK (?) 
1288 POKE 6,1 - I: POKE 7,28 
1298 CALL 13878; VTA© 4 ♦ i ; HTA8 38 
1388 B«I> = PEEK <24> 
1318 IF B(I) " 13 THEN B<I) » 14 
1328 PRINT p 3 [HRt'i'BU)')* 
1338 NE<T 
1348 : 

1358 REM *** QUEL SERA LE CODE D'APPEL? *« 
1368 : 

1378 POKE 34,16; POKE 33,17; POKE 35,22; VTAB 1 
8; HTAB tl CALL LS; CALL Gi PRINT "LETTRE-C 
LE -) 

13B8 GET L*r PRINT 

1398 POKE 33,48; PDKE 34,3 

1489 IF LS = CHRt (27) THEN GOSUB 3528: GOTO 
938 

1419 IF L» < CHR* <32) OR LI > CHR* (159) THE 

N 1378 
1429 Alt = L* 

143B PRINT Alt- CHR*<" ASC <L*D": GOSUB 298 
1448 : 

145B REM *«* ET L£ CODE IW-DMP, DONC ? KM 
1448 ; 

[478 IF PW = 27 THEN 1378 
1489 IF N > 8 THEN 35B8 
1498 CO* = ES* * '-*: GOTO 3 51 B 
1588 COt = IP* 

1538 CO* - CO* + ES* + CHR* (73) * L* 
1529 CO* ■ CO* + CHRt <N ♦ 32 ♦ 32 * PL) 

1539 FOR I = 1 TO N:C0* ■ CO* * CWK <B<I))i N 
EXT iCO* = CO* ♦ W:.X = B 

1548 IF ND < ) 8 THEN GOSUB 2358 
1559 CF = CF ♦ tl GOSUB 345B 
1569 ; 

1578 REM m FA1 SDTJS BONNE IMPRESSION! *** 
158B ; 
559B PI = 9 
i68B GOSUB 428 

I61B VTAB 17: PRINT s IMJERSE i PRINT 'EDITION* 
: NORMAL 

162B GOSUB 35B: CALL &: PRINT ' <C)ARACTERE - 

<R>IEN - <T>OUT 9 ' 
1638 GOSUB 3B8 

I44B IF PW = B4 THEN PI ■ 1: GOTO 1676: REM EDI 

HON DU FICHJER ACTUEL 
3 658 IF PW » B2 THEN 2848 
3 668 IF PW i > 67 THEN 1628 
167B GOSUB 3569 
3 6B9 IF PE THEN !?BB 
!6P8 2 
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1768 PR Shi : PR 11,1 WPRfPl PRINT 

1710 PRINT CHR* < 9)* BAN" 3 PRINT CHR* (I5>i 
172B PRINT EBfE^^SS-LBI*": CHR* WZ' 
1738 X = B: REM POINTEUR 

1748 IF NOT PI THEN 1999: REM IMPRESSION D'UN 

SEUL CARACTERE 
1758 L6 = F8 ♦ 1 - FI :X = B 

1769 2 = UBR <LG): POKE 8, PEEK (6)'. POKE t t PE 

EK (7) 

177S CALL 13884: PRINT D*; PRINT CHR* (24) 
1788 ; 

1798 REM *»* LA, TOUT LE FICHIER t FASSE! *« 

ieae t 

1818 PRINT OHR* (HJtESVX' : PB1NT "fCNfl 'Fit 

ESt'Y"; CHR* (15): PRINT 
J82B IF CF > =95 THEM 1678 
1B25 PRINT ESt'D 1"| 
1838 PRINT IP*', 

1646 FOR I * i TO 95i IF C(I,1) THEN PRINT CM 
Rt (C(E,l»i 

1858 NEXT s PRINT tX = X* 1; ]FX < 2 THEN PR 

INT CHR* (14); GOTO 1049 
IB4B X * 8: GOTO 1938 

1878 H = CF <6 - X t 2)1 IF H < > INT (CF / 

6> THEN H - INT (H ♦ 1) 
1888 FOR I = 1 TO H:S m 31: FOR J - 1 TO {& - X 
• 2> 

1898 IF I + S ) 124 THEN 1918 
1988 PRINT IN*; CHft* <I ♦ S)f" -) CHR* ( 

I ♦ S)ji IF J < <* - X » 2) THEN PRINT ' 
'I 

1918 S - 5 * H: NEXT : PRINT : NEXT 

1928 X = X ♦ 1; IF X s 2 THEN PRINT CHR* (15) f 

ESt-LeeS"? CHR* (14): GOTO 1878 
1938 PRINT IN*; PRINT CHR* (|5>: PRINT D*"PR£B 

■ 

1946 ; 

1958 GOTO 2858 
1948 : 

1978 REM m* I CI. SEULEMENT 1 CARACTERE' 
1988 : 

1998 FOR I ™ I TO LEN (CD*)t POKE i, ASC < MID 

* <CO*.l,l)>: CALL 13B88r NEXT 
2888 FOR I = 1 TO 3 

2816 IF L* ) CHR* (127) THEN PRINT ES* ♦ *»"; 

Li; IN*;: GOTO 2838 
2828 PRINT IP*:L*j]N*i 
2838 PRiNT ' ';: NEXT 

2848 X = X * 1 : IF X ( 2 THEN PRINT CHR* (14) { 

: GOTO 2898 
285B PRINT t PRINT ESVc't PRINT WPRie- 
2B68 POKE 34,4: HOME :X = 8 



2879 GOTO 168 
2BB8 i 

2898 REM*" CARACTERE ANC1EN *** 

2189 t 

2118 IF NOT CF THEN ME* = "FAS DE CARACTERE EN 

MEMO I RE": GOSUB 343: GOSUB 298: RETURN 
2128 VTAB 15: CALL 13415 
2138 PRINT : VTAB 19: CALL St INVERSE : PRINT " 

MfiACTERE DESIRE" ji NORMAL : PRINT ■> *\i G 

ET ft*: PRINT 

2148 IF R* = ESt THEN POKE 35,22: VTAB 15: CAL 

L LS: RETURN 
2158 IF R* < " * THEN 2138 

2168 FOR I ■ 1 TO CFt IF C<I t l) = ASC <R*> THE 

N NO = I: GOTO 2228 
2178 NEXT 

2188 '/TAB 15: PRINT ft*' EST INTROUUABLE* : RETUR 
N 

2198 : 

2286 REM «»• REAFFICHAGE DU CARACTERE •»« 
2216 : 

2228 IF NOT ND THEN NO = CF 

2238 P = PEEK <C<ND,B) + 1) - 64t IF P > 16 THE 

N P = P - 32 
224B IF H < > P THEN N = P; GOSUB 348 
2258 FDR 3 = I TO P 

2248 X = PEEK (C(MD,B) * I ♦ I ) :Y = INT (X / I 

6>:Z » X - V * 16 
2278 L*(h = MID* (BI*,1 I (4 » Y),4> « MID* < 

BI*,1 * (4 * 2>,4> 
22BB NEXT 
2299 VTAB 5: HTAB 1 

2389 FOR I = 8 TO I STEP - 1 ; FOR J = 1 TO P: 
PRINT HID* <L*<J>,I,1>;: NEXT : PRINT : NE 
XT 

2319 VTZ6 III CALL LS: RETURN 
2329 | 

2339 REM *t# RENJPLACEMENT D UN CARACTERE «#t 
2348 : 

2358 FDR 1 = 1 TO CF: IF CC I , ! > = ASC (L*) THE 
N NE = I s GOTO 2378 

2368 NEXT :NE = I t GOTO 2428 

2378 GOSUB 428: PRINT : VTAB 18: CALL B: PRINT 
■ Replacement de "L** (return) ? *j: GET R* 
: PRINT : IF R* < ) CHR* (13) THEN POP ; 
GOTO 1378 

2386 L = LEN (CO*> - I 

2399 FOR I = 5 TO L 

2489 POKE C(HE,9) + I - 5, ASC < MID* <CQ*,I,1) 
) 

2418 NEXT : POP : GOTO 1596 

2421 IF NE > CF THEN GOSUB 429: CALL G; PRINT 
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: VTAB 16: PRINT 1 NDIWEAU CARACTERE; 'LV 
("NE'l - RET*0UI "ft GET R*s IF R* - CHRt 
(33) THEN RETURN 

2438 POP : CUrO 1598 

2448 s 

24SB REM ♦** ATTENTION' UA-T-QN EFFACER? »** 
24*8 ; 

247B IF NOT BI THEN HE* = "PAS DE FICHIER BINA 
IRE EN MEMQIRE"; GOSUB 348: GOTO 2568 

24&i* ME* = "ON EFFACE LE FICHIER EN MEMOIRE <0/N 
>"; GOSUB 348 

2498 GQSUB 398 

2588 IF PW = 79 THEN 25*8 

2518 IF PW - 78 THEN 168 

2528 CALL - I9B: GOTO 249B 

2538 ; 

2548 REM *»• CHAR6EMENT O'UNE FONTE **» 
2558 I 

2568 POKE 35,24 

2578 GOSUB 358: PRINT "(T>DDL KIT (C)HAT HAIWE 
(P)ERSOWEL -> INVERSE : HTAB 2; PRINT 
*T"ii HTAB 13: PRINT *C'(: HTAB 26s PRINT ■ 
P";; NORMAL : HTAB 3? 

2588 CALL Gr GET R*; PRINT " 

2598 IF Ri ■ THEN GOSUB 3398; GOTO 2578 

2m CM - 8tFT = CM:FP » CM; IF R* = »F THEN CM 
■ 1 j GOTO 2648 

2MB IF R* = "T" THEN FT * li GOTO 2648 

2628 IF R* - *?* THEN FP ■ 1 1 GOTO 2648 

2638 GOTO 168 

2648 PRINT : GOSUB 35B: CALL 6 5 INPUT "FONTE DE 

SIREE 17 "fF* 
2658 IF F* = " THEN 2578 

266$ GOSUB 277B: IF Ri < J OMR* 1 1 3) THEN 257 
8 

2d?8 A* = -,A*35&B' ! IF FP THEN A* = n ,A*438B" 

26W DE » is ONERR GOTO 4148 

2698 POKE 34,22: YTAB 28: PRINT s PRINT Dt'BLQA 

Of* ♦ A*:BI = 1 
2786 POKE 21M: POKE 286, B: POKE 287, 53 1 REM A 

DRESSE FONTE 
2718 IF CM THEN OF = 32i GOTO 2988 
272B DF = h IF FT THFH 2B98 
2738 IF FP THEN 3318: REM MATERIALISATION 
2748 GOTO l&B 
2758 s 

2768 REM **« SUFF1XE <SET) <FCNT> <FP> 
2778 l 

27BB IF CM AND RIBHT* (F*,5> < > ".FONT" THEN 
F* = F* * ".FONT"! REM CHAT MAUVE ;GOT05BB 

6 

2798 IF <FT> MO RIGHT* <F*.4^ < ) ".SET" THE 



N F* = F* f '.SET" J REM TOOL KIT APPLE 
2888 GOSUB 358: CALL G: PRINT "CHOI*: ";; SWER 
SE : PRINT ftp NORMAL : PRINT " (RETWMJU 
I>"!J GET R*3 PRINT : RETURN 

2818 : 

2828 !F RIGHT* (F*,5) = 1 .FONT' THEN F* = LEF 

T* <F* f LEN (F*> - 5> + '.CM* 
2838 IF RIGHT* <F*,4> = \SET" THEN Ft = LEFT 

* <F», LEN (Ft) - 4) ♦ ".FT' 

2848 3F <FP) AND RIBHT* <F*,3) ■ ".FP" THD4 F* 

- LEFT* (F*, LEN <F*> - 3) ♦ " .FP" 
tK>8 "'TO 2m 
2B68 i 

287B REM »« FDNTE5 D APRES CWT MAINE «" 
2B88 ; 

2898 POKE 13344,182: CALL 1333 B: POKE 13344, 3B: 

GOTO 2918 
2988 CALL 13318 
2918 ; 

2928 GOSUB 428s INVERSE t PRINT ** APPLE TRAVAI 
LLE POUR VOUSs PATIENCE **l NORMAL t PRINT 

2938 Al = 13567 I B * DF:C = 32sL = SjLI = 1456B 
l IF FT THEN LI = 14319 

2948 POKE AP,27i PDKE AP * 1,45: POKE AP * 2,27 
: POKE AP • 3,73:A2 = AP M 

2958 PDKE A2,C: PDKE A2 + 1,64 ♦ L: FOR I = A2 

♦ 2 TO 42 4 9j POKE I,8j NEXT 

2968 P = A2 + 1:2 * USR (P)s POKE B, PEEK 

POKE PEEK <7> 
2978 I = USR <A1>; POKE 24, L; POKE 2S,L ♦ 2 
298B H = 64:C = C ♦ l;A2 - A2 ♦ 18;A3 = Al * L 
2798 CALL 132*8 

38BB 3F PEEK (26) > 127 THEN H = 96 
3838 POKE A2,C: POKE A2 I 3 ,H * L 
3828 IF Al \ LI THEN 2'B8 
383B POKE A2 ♦ 18,4t REM FIN DE FICHIER 
3848 VTAB 22: PRINT » FONTE PRETE A EOITER it S 
ALVEGARDER" 

3858 CF = C - 33:L = A2 + 18 - <AP - 1):Z = USR 
(Da POKE LB, PEEK (4>t POKE LB * 1, PEEK 

<7> 

386B CM = B:FT = 8:FP = UFl = AP 
38 7B GOTO 3188 
3888 ! 

38?B REM »** PETITE ANALYSE DU FICHIER **« 
3188 2 

3118 LG = PEEK <LB> + PEEK <LB MJ i 256 jFS ■ 

Fl - 1 + LG 
3128 if PEEK (FS) = 4 THEN FS = FS - I 
3138 N3 = FJ + 4:X = 8;CF = 8 
3148 Cf = CF + l:C<CF,9) = N1:C(CF,1) = PEEK (N 
V 
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3138 R ■ PEEK (Ml ♦ lit* * R - 64: IF R ) 1* TH 

EN R ■ R - 32 
3248 Nl = Nl ♦ R + 2s IF Nl < FS - 1 THEN 3148 
317B VTAB l?S CALL LSi PRINT s PRIP-TT 'FICHSER " 

;: IMMERSE : PRINT Ft;: NORMAL t PRINT " AV 

EC ':: INVERSE I PRINT CF:: NORMAL : PRINT 

* CARACTEREB'' 
31B8 N = R; GOSUB 298: GOTO £6* 
319B : 

3283 REM m* ANMUIATIQN D UN CARACTERE «»• 
321 fl : 

3228 FOR I = CtfM) * 2 TO FS: POKE ] ,8: t€XT 
; IF AN = CF THEN FS = C(AN,8> - l:Cf * CF 

- U GOTO 3248 
3239 RETURN 

324« IF NOT CF THEN FS = Fl - 1 
3758 RETURN 
3261 i 

3278 REM m COPIE St* UNE OlSQUETTE Hi 
3288 : 

3298 GOSUB 2828iFM* = Ft: IF Rt ( > CHRt (13) 
THEN 168 

33BB GOSUB 358: PRINT "TITRE - MAT) ■jFM*S« ^ 
AB 15: CALL G: INPUT "* ?Ft; tF F* = THEN 
148 

3318 IF Ft = «•>■ THEN 6QSUB 339U : GOTO 3298 
3328 IF PEEK (FS) 4 > 4 THEN FS = FS ♦ t: PDK 
E FS.4 

333B GOSUB 358 £ PRINT "6SAVE 'FV.AMMB.L'itL 

- FS + 1 - Fl ! PRINT L 

334B PRINT : PRINT CHRt {4)'BSWE'F*' t A»4BM,L 
•L 

3358 SOTD IBB 
3368 : 

3378 REM *»» CATALOGUE DE DISQUETTE SUP? •« 
3388 : 

3398 TEXT : 6CSUB 3578: HOME : PRINT : PRINT Ot 
■CAT': PRINT : INVERSE : PRINT 'RETURN SVP" 
;: NORMAL : INPUT Rtt GOSUB 3588: RETURN 

3488 : REM "CATALOG" SOUS DOS 3.3 

3418 El = Ml jE2 = M2iE3 = 17488: GOTO 35PB 

3421 t 

343« VA = 4; FDR I - 1 TO LEN (E*) STEP B:VA = 
VA ♦ Is VTAB lilt HTAB 28: CALL FL: PRINT M 
1D« (Et,l,S); NEXT 

3448 PRINT : GOSUB 3478; RETURN 

3458 VTAB 14; HTAB 9; PRINT 'PRESSEZ UNE TOUCHE 
SVP 

3468 CALL Si GET Rt: PRINT : (/TAB 14: CALL FLi 

RETURN 
3478 GOSUB 388: RETURN 
3488 : 



3498 REM tun TRANSFERT DES DIVERS ECRAN5 "* 
3588 : 

3518 El = Ml rE2 = M2;E3 = 21468: GOTO 3598 
3528 El = 214661E2 = 22484 ;E3 = Ml: 6OT0 3598 
3S3B El = Ml :E2 ■ M2iE3 = 18417? GOTO 3598 
3548 El * 18417:E2 = 19433 :E3 = Ml: 6OT0 3598 
3558 El = H1:E2 = M2:E3 = 19434; GOTO 3596 
3568 El = 19434:E2 = 2B456:E3 = Ml: 60TD 3598 
3578 El = M1:E2 = M2:E3 = 28451: GOTO 33?* 
3588 El = 2B45ItE2 ■ 21447:E3 = Ml 
3598 E = EllLD = 68: GOSUB 3688:E = £2:LO = 62; 

GOSUB 3688 :E * E3:L0 = 64: GOSUB 3688: CALL 
13517: RETURN 
3688 2 = USR <£>: POKE LO, PEEK (6): POKE LO • 

I, PEEK <7>: RETURN 

3619 : 

3628 REM ♦« CONSTITUTION OU FICHtER **« 
3638 : 

3648 Fl = AP;FS = Fl - U RETURN 
3658 C<CF i B> = FS ♦ 1 

3668 IF CF = I THEM FOR 1 ■ I TO 4;FS = F5 ♦ 1 
: POKE FS, ASC ( MIDt <IHt,I,!»: NEXT :C(C 
F,8> * C<CF,9> ♦ 4 

3678 FOR I = 5 TO 6:FS = FS I It POKE FS, ASC ( 
MIDt <COt,t J»; NEXT 

3688 FDR I = 1 TO N:FS = FS + Is POKE FS T 8tI>: 
NEXT 

3698 C<CF f l> = ASC < MIDt ^CO* r 5,l)> 
3788 RETURN 
3718 ! 
3728 t 

3738 REM *M PRESENTATION M* 

3748 ! 

3758 TEXT : HOME : IF 22 THEN GOSUB 3548: RETU 
RN 

3768 PRINT Tt: PRINT Tt 

377B '/TAB 2; PRINT "» CREATION 0€ CARACTERES PE 
RSCNNALI5ES »" 

37B8 IF Bl THEN GOSUB 368; GOTO 3868 

3798 N = 14: GOSUB 348tN » 8 

3B88 VTAB 23: PRINT Tt"DEFLACEMENTS AVEC LES FL 
ECHES DE L'APPL'jj VTAB 15: POKE 2839,133 

3818 POKE 34,4s POKE 35,22 

3828 VTAB 6: HTAB 28s PRINT "LA BARRE D'ESPACEM 
ENF j! HTAB 28: PRINT "TRACE OU EFFACE LES 
•";; HTAB 28: PRINT 'FIGURANT LE CARACTEBE' 

3B38 VTAB 18: HTAB 28: PRINT "LARGEUR NQRMALE;8 
PTS";: HTAB 28: PRINT "LARGEUR MAX; 16 POJN 
TS'jt HTAB 28: PRINT "CTRL-E POUR EXEMPLES 
"j: HTAB 2Bs PRINT LEFTt (Tt,2I> 

3B48 IF NOT 22 THEN GOSUB 3538 t 11 = 1 

3B58 RETISN 
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3861 ; 

3871 REM f« INITIALISATIONS GENERALES **« 
3888 t 

3690 Oil! Ba4>,L*<l6> l S*C?> I CU2B,n,A(14) 
3986 D* - CHR* (4):ESt = CHR* <27) 
3918 Ml - 1924sM2 * 2&4«sAP - 16384* REM A&R POL 
ICE 

3928 | 

3938 PRINT WBLOAO CARAC.C 

3P4H CALL 13394s REM INITUSR 

3P5B IN* = m * *V:IH = EG* ♦ "MH* = ES* + 

» ES$ ♦ *l' 
3P4B 6 ■ - IPBjFI = - B68itS - - ?58 
3978 ItJt = 'fll 5263748" tLB ■ 48B4I 
3?B8 MT* = "NU-I«NU-4€NU-MENU-MEWU-MENU-MENU-HEN 
U-ME" 

3998 H* ■ '1 CREER CARACTERE 5 EDITER LE FICH 
IER2 MOINS 1 CAftACTERE & VOIR LE CATALOGUE 
3 PLUS I CARACTERE ? SAUVtR LE FICHIER4 C 
HARGER F1CHIER B FIN DE TRAVAIL" 

4888 Bl* » , .....„i l .ii..,i»,t. 11 ».».«„»«*„ 1 
*..**.».». »**», ,»».♦»»*,«**■ 

4111 £i = ■ m* 

t.,, *,,.*.... M«. ».......». " 

4828 FDR] - I TO 16: READ A<Ih NEXT I 

4838 FOR ! = I TO JI:T* * T* ♦ ' "iV* = V* i 



• "sTL* ■ TLI + \,./t NEXT :Vt = V* ♦ * 

484B GQSUB 3448: REM MT FICHIER TRAVAIL 

485B PRINT T*MT*T*i POKE 34 t 3 

4868 X = 5; FOR I = J TO 168 STEP 4«tX ■ X ♦ 2s 

VTAB X: PRINT MID* (Ml, I ,48) i NEXT 
487B INVERSE ; FOR I = I TO 4; V7A8 5 M « 2: 

PRINT MID* (ltd, I * 2,Ui! KTAB 22: PRINT 
MID* \MN*,I * I • 2,1): *€XT ; NORHAL 

GDSUB 35592 REM STOCKA6E ECSAN 
4898 GOTO 168 

4188 DATA 1536, 1664, 1792,1928, 1844,1192, 1320,14 
48, 1576, l7B4 t lB32,l?A8,1184 r 1232, 1368, MM 

4111 ; 

4128 REM *** EH CAS D'ERREUR «* 

4138 I 

4148 ER a PEEK (222); CALL L5; CALL G: JWERSE 
! PRINT 'ERSEUR "ERjis NORMAL s PRWT ' 'j! 
GET J»s PRINT i TEXT s HOME ; PRINT DI'CATA 
LOB* 

4150 PRINT : PRINT Tft INPUT 'FDNTE 0CS1REE ? 1 
;F»£ IF F* ■ " THEN POKE 216,6; GDSUB 356 
8: GOTO 168 

4148 GDSUB 3548s VTAB 19; REStNE 

4178 POKE 214,8: GOTO 938 

18888 POKE 51 ,8s GOTO 168 " 
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te programme? en Basic fait f requernment appel £ 
diverses routines en langage machine. Celles-ci 
son I regroupees a parti r de I'odresse $32C8 
(13000), sur522 octets. 

Publier le programme source auroit monopolise 9 
pages de la revue d'ou son absence (par eonlre, if 
figure sur la disquette Tremplin Micro n°6 rr ~ ainst 
que plusteurs fontes de coracseres person nallsifj* 
Rappelons que, pour rentrer un programme en 
langage machine, il suffit de taper CALL — 151, 
suivi de RETURN, puis chaeune des lignes ci- 
contre, un RETURN marquant la fin de chaque 
ligne. 

Pour sortir du moniteur, toper CTRL-C (Contrdle C) 
el RETURN 

SAUVEGAftDE : BSAVE CARACC, A$32C8 L522 



32C8I 


A5 


04 


29 


ED 


FD 




A* 


FF 


3200! 


85 


84 


A9 


3F 


85 




E4 


04 


32D8: 




34 


DO 


13 2 


E4 


87 


C4 


08 


32E0 ( 


A5 




C9 


FF 


D0 


n/, 


A5 


89 


32EB : 


PC" 


ec 


C4 


0? 


A6 


h a 


Bl 


84 


32F8 s 


20 


ED 


FD 


4C 


D4 


32 


48 


A4 


32F8' 


04 


A4 


64 


A9 


64 


20 


AB 


FC 


338B 3 


AO 


?0 


C0 


ES 


D0 


FD 


88 


D8 


3388 t 


FB 


C4 


0? 


DO 


EA 


40 


A9 


80 


3318 S 


85 


18 


A9 


BC 


B5 


25 


20 


CI 


3318 ! 


FB 


A4 


06 


Bt 


28 


C9 


AA 


FB 


3328 1 


05 


A? 


B8 


18 


90 


03 


38 


A? 


3328: 


33 


A4 


0? 


91 


08 


24 


18 


C4 


3338 i 


25 


E4 


07 


A5 


23 


C9 


03 


DO 


3338 


DD 


40 


A5 


18 


F8 


BF 


A9 


ec 


3348 : 


8D 


4E 


33 


A? 


C4 


80 


5C 


33 


3348? 


A? 


03 


80 


77 


33 


A9 


84 


85 


3350 3 


25 


28 


CI 


FB 


A5 


28 


85 


88 


3358 : 


A5 


2? 


85 


09 


E4 


25 


A5 


25 


3340 t 


28 


CI 


FB 


AO 


88 


Bl 


28 


C9 


3348 s 


A0 


D0 


02 




At 


91 


88 


CS 


3378 : 


C4 


06 


D8 


Fl 


A5 


25 


C9 


9D 



TA£MPLIN WKRO 



2^ 



CARACTERES PERSONNALISES 7 



CARAC.C 



Suite 



3378: D8 DA A? 84 BD 4E 33 A* 

3388 : E4 80 5C 33 A9 0D 8D 77 

3388: 33 48 A 1 ? 84 85 25 20 CI 

3398 : FB A4 U 38 B3 28 C8 91 



3398 : 23 B8 D9 F7 A9 AE 91 
3?A3t E4 25 A5 25 80 D8 



33A8t 48 A9 



85 25 28 Ci 



28 
Erf 
FB 
28 
88 



3388 1 A0 86 C8 BJ 28 38 91 

33B8* C8 C4 86 08 F5 A9 AE 

33C8 : 91 28 C8 E6 25 AS 25 C9 

33C8 3 8D D8 E2 48 AS 84 18 45 

33D8 : 18 85 96 AS 87 6? 99 85 

33DBJ 07 A5 08 18 65 19 85 88 

33E8 •• A5 09 69 00 85 89 A8 00 

33E8: 34 1A C8 83 96 C9 8D 00 

33F8 : 82 A9 8C 91 88 29 B8 85 

33F8I 1A G0 88 08 ED 69 A5 CE 

3480 » B5 96 AS CF 85 07 A9 84 

3488' 85 08 A8 08 A2 80 Bl 96 

3418 ! 95 8A C9 £8 E9 08 00 38 
48 A8 



3418: 

3420 J 26 89 E8 E0 
3428: 89 99 12 88 
3438 : EB A9 00 85 
3438 3 08 A8 A2 88 
3448: CS E9 E8 08 00 F6 A2 00 



A2 80 56 0A 
03 D8 F7 A5 
C8 C8 87 08 
19 68 3B E9 
B5 J 2 91 86 



3448: €8 08 D8 C2 E6 07 C6 86 

34501 00 BC A9 4C 85 8A A9 5F 

3458: 85 SB A9 3A 85 8C 48 20 

52 E7 85 97 84 84 48 A9 



3440 ! 
3448 I 
3478: 
3478 ; 
3480 3 
3488 3 
3490 : 
3498: 



04 85 06 A9 
84 C9 



80 Bi 
7F B8 



85 87 A0 
90 2 A C9 
Bl 06 



I 



28 

26 48 A8 
38 E9 48 C9 11 96 03 38 
E9 20 18 69 02 45 84 85 
04 AS 87 69 00 85 07 68 
18 69 80 28 EO FD 4C 4F 
34A8 £ 34 68 AD 00 C8 C9 20 F8 



34A8: 81 
34B8 : 29 



68 AS 25 28 CI FB A5 



18 65 21 85 28 A5 



34BB: 49 08 85 29 A8 86 8 f . 



29 
28 



34C8: C9 AA F6 
34C8 s A9 AE '1 
34D0 : 2C FE 

VERIFICATION t 

T = ; FOR I = 
522 : T = T + PEEK(I) 



04i A9 AA 08 82 
28 40 A0 08 4C 



TO 12999 + 
NEXT : PRINT T 



le r&ultol doit ©tr e 58441 



• CARAGCHARG 



190 TEXT : NORMAL : PRINT CH=>* C21 Jl NONE 

118 b& = CHR* (4);ES* = CHR4 C27) 

120 PRINT D*"BLOflD CflRAC CH" 

130 VTflB \2i PRINT "TITRE D£ LA fQNTE A CH 

ARGER C?= CATALOG?' 
148 VTAB 14: INPUT »-> " J-'*: if f* = T 

HEN HOME I PRINT CATALOG" i OCT Mi 

PRINT i RUN 
150 ONERR SOTO 278 

168 PRINT ! PRINT D* n BLOAD»f *" , 0*4008" 
170 VTRB 12i PRINT "ALLUMEZ L' I HPR I NANTE { 

DHP/IMAGE <URiT£R)» 
188 ONERR GOTO 280 

190 PRINT D*' J RR#1»: PRINT E5*"N W ; PRINT C 
Hft* C9D"BBN M ! PRINT CHR* (15) CHR* (9 

yz» 

200 CALL 768 

210 PRINT D*: PRINT £$&>' ' " t 
220 FOR I = 33 TO 127; PRINT CHR* f I ) ; N 
EXT ! PRINT 
X = X + li IF X c 2 THEN PRINT CHR* ( 



238 



14): GOTO 220 



Chargement 
d'une police 
de caracteres 
personnalises 



BASIC : 

CARAC.CHARG 
LM. ; 
CARACCH 



240 PRINT CHR* U5) ; £S*"* W ! PRINT : PRINT 
D*"PRW8" 

258 HOME : "JTAB 12: PRINT "WTRE fONTE » : 
INVERSE ! PRINT f#. j NORMAL r PRINT " 
EST I NSTALLEE" 
268 CALL - 198; POKE - 16368, 8t WIT - 

16384, 128: HOME : END 
270 POKE 216, 0: VTRB 22 1 INVERSE" | PRINT " 
A REJOUERi NORMAL I CALL - 198 r GO 
TO 140 

288 POKE 216.0: VTAB 22: IMMERSE : PRINT « 

I L S A UN PROBL£H£ » | NORMAL 
290 GOTO 260 



30 



GUY-HACHETTE 



CARACTERES PERSONNALISES 8 



ASSEMBLAGE 8 



PAR ProCODE 

Si vous ne possedez 
pas d'assembleur 



* CHARGEMENT D' UNE POLICE DE CARACTERES PERSONNALISES # 

* FQNTES ISSUES DU PROGRAMME CARAC OE TREMPL1N MICRO # 

4 * Impr iitiaftte* OMP *t Imag* Urrt»r Appl? * 

5 **#*##***»******♦**«■»#»**»»**********«******************* 



2 
3 



seule cette partie 


© 

f 


■ 


ORG 


*389 






vous concerrte. 




8 


i 


















9 


LBL 


EQU 


4AA48 




Consent It long du iic B 










19 


» 




*8ECB-BEC9 




awec ProDos 










11 


COLT 


EQU 


fFDEO 






1 








12 












6380 : 


A? 


FF 




13 




LDA 


£*FF 


* 
t 


Acre 5se de 3 a font* mo ins 


8 302 s 


85 


84 




14 




STA 


t86 






8394: 


A9 


3F 




15 




LDA 


£*3F 








85 


87 




14 
17 


♦ 


STA 


*87 






63861 


AD 


48 


AA 


18 




LDA 


LBL 


1 


Longueur par tit basse 


8388 : 


85 


08 




19 




STA 


*88 






0380: 


AO 


61 


AA 


2B 




LDA 


LBL+1 


* 
t 


Longueur part I e riaute 


8310: 


85 


89 




21 
22 




STA 


♦•9 






9312: 


E4 


86 




23 


INC 


INC 


*86 


\ 


Plus 1 pour VadrtMt 


8314 : 


A3 


06 




24 




I r;A 


$84 






D 6 > 


Do 






25 




EfNE 


Dec 


m 

f 


SI ct n'est pas 8 


93!0: 


E4 


0? 




26 




INC 


*87 

•WW l 


t 
f 


Si c'#tait 8 t par centre 


03lAi 


C4 


88 




27 


DEC 


DEC 


*88 






831C: 


A5 


08 




28 




LDA 


tea 






031E: 


C9 


FF 




29 




CMP 


£*FF 


a 
f 


Est-ct *FF ou non ? 


8320: 


D8 


86 




30 




BNE 


Won 






9322: 


A5 


89 




31 




LDA 


$09 






8324: 


F8 


ec 




32 




BEQ 


Ou* 


I 


Si 9 f term in* 


8326: 


C6 


09 




33 




DEC 


«89 


1 


si nan on d*er#mtnte 


8328: 


A8 


08 




34 


NON 


LDV 


£t80 


| 


Pour adressage Indirect 


632As 


El 


06 




35 




LDA 


(*84) ,Y 






832C: 


20 


ED 


FD 


34 




JSR 


Cdut 


■ 

| 


Transmi ssion Irapr irnantt 


832F: 


4C 


12 


83 


37 




JMP 


Inc 


• 


SI c* n'* tai t pas * i n i 


8332: 

! 


68 






•J 3 
39 


OUF 


RTS 













































• Pour terminer % BSAVE CARAC.CH, A$3Q0, L$33 

Table des symbol** ordre alphabet iqu* 



-CDUT.. . ...fFDED 

-NON ...... .t0328 



-DEC. . . * . . ,*83lA 
-OUF *8332 



-INC .*0312 -LBL ,*AA40 



Pour verifier lex attitude dos donnees, tape* en direct la ligne suivante 
(sons oublier un RETURN, bien entendu) : 

T - a : FOR I = 768 TO 767 + 51 : T m T + PEEK(I) : PRINT T Le res ul tot devra #tre ■ 5691 



TREMFLIN MICRO 
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CARACTERES PERSON NALISES 9 

CARACVISU BASIC : CARACVISU LM. \ CARAC.VIS 

f* £ mini -programme (n'oubliez pas les 126 octets de la routine en langage machine) vous 
permeltra de visualrser les polices de caracteres de votre disquette TOOL KIT (Applesoft 
Programmer's assistant). Si vous possedez une version r^cenie, eonfrontez les titres de son 
catatogue et ceux indiques dons notre ligne de donnees (250). 

188 TEXT : NQRNRL t PRINT CHR* <213: HOME 
110 PRINT CHR* «J)'BLOFir' CRRRC .UI3* 
120 ONERR GOTO 318 

138 VTRB 12: INUEESE r PRINT * UISU.FuNTE "s NQRNRL 
1*30 VIRB 15: PRINT " Pour visual tser les Mantes du Tool Kit" 
150 PRINT : PRINT 'Taper- <R> pour u i sua I i sat i on automat iaue' 
140 GOSUB 240 

170 IF PEEK «:40152) = (55 THEN 268 

160 VTRB 238 PPINT ; PRINT : INPUT "FONTE <? ■ ;F$ 

190 IF F* = THEN 230 

200 IF F* ■ n ^ H THEN TEXT : HONE I PRINT CHR» C4} M CRTRLOG» s PRINT : PRINT 
I GOTO 160 

210 PRINT ? PRINT CHR* C4}"BLORD B F*\ft$4800' 1 
220 CRLL 768 J GOTO 180 
230 TEXT t HONE 8 END 

240 VTRB 21 1 HTRB 5: INVERSE s PRINT " PRE3SER »JNE TOUCHE QUELCONQUE ■ \ : NO 

RNRL i CRLL 887? RETURN 
250 DRTR BLIPPO BLRCK , BYTE , C0L0S3RL , COUNT .CYRILLIC ,ESPERflNTO ,FL0U, GOTHIC S GP 

RPHIC , GREEK ,KRTRKRNR , MIRROR .OUTLINE , PI N0CCHI0 , PUDGY , RCf-fRN , 3HRD0U .3LRNT ,5 

TOP, UPSIDE DOUN 
260 FOR I = 1 TO 20s RERD FtsF* n F* + ■ .SET* 
270 PRINT s PRINT CHR* (4> , 8LO«D*F» # ,R140B0 D ? CRLL 768 
280 VTRB 23 J HTRB C41 - LEN CF*)} / 2: PRINT Fi; 
290 GOSUB 2 J8 e PRINT t NEXT 
300 GOTO 238 

310 HONE s INVERSE : PRINT " N'OUBLIEZ PRS LR DISQUETTE TOOL. KIT !?i NORNRL 

i GOSUB 240 
320 POKE 216,0s GOTO 120 

CARACVfS — 

0300 8 20 58 FC 20 E2 F3 R9 03 Q5 19 Pf9 00 j Qpez exoc temeni ces 

85 0<5 85 08 R9 4 85 07 6R 85 ©9 P.9 28 deux | jgne5 {a?rks on 

85 13 B0 00 R5 ©8 85 8R R5 09 85 ©B Bl CALL— 151 »t RETURN' 

6 as CO 00 F0 10 84 0C R6 0C Fi5 0B 18 69 

34 CR DO FFi 35 OE ft4 OC 63 81 Of. CS CO - 

08 90 D9 R5 06 18 69 08 85 06 R5 07 69 VERIFICATION : 

85 Q7 T = ; FOR I = 768 TO 

0351 s£<5 08 D0 02 E6 09 C6 IS DO CO C6 19 693 : T = T + PEEK(l) : 

F0 17 R5 08 18 69 58 85 08 R5 09 69 00 NEXT PRINJT T 

85 09 R5 19 C9 01 D0 R5 R9 OF DO R3 60 2 

Ed FB 20 IB FD 60 Resullat j 12697 
BS AVE CARAC.VIS, A $300 , L$7E 
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a — r 

b = ~ 

c = i 

D = ! 
E = I 

F - L 

= _ 

H - J 



En creont 
ces huit 

carocteres 
spetiaux, 
to us les 
encadres 

deviennent 
possibles 



CARACTERES PERSON N ALISES 

Ce cadre 
en est une 
premiere application 



o 



N peut certes imprimer des cadres en utilisant d une part le souligne, 
et d'autre part le traditionnel point d'exclamation, mais le resultat 
n est pas folichon. Par contra, avec quelques carocteres personnalises, 
crees en cinq minutes (ici, ils vous sont fournis aux lignes 280 et 290), on 
obtient reellement de bons resultats, Le cadre ci-dessus en est un exem- 
ple. Vous obtiendrez le memo, sur ImageWriter ou DM P. 





108 


Rappelons que 


lie 


1' Instruction 


120 


CHR${27) "ROOnC" 


138 


Im prime n fois 


i4i 


leearaetere C, 


150 


ue 


ce qui perm el 


I'economie d'une 


178 


boucle. 


180 




190 




280 




210 




228 




230 


Cette porile 


240 


du programme 


250 


ins to He 




la police special e 


240 


dans hmprimante. 


278 




280 




290 



605U8 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

FOR I 
a ■ , ■ i 

PRINT 
PRINT 
PRINT 
FOR I 

)" = 



23(1 

CHR* <27>""i 

CHR* (27>"E' 

CHR* <27)">" 

CHR* <27)"T16" 
*A"s CHR* <27> a R030B- 
= 1 TO 22: PRINT "D"f 
; i PRINT "E" ! NEXT 
"F" ; CHR* <27)*RB50G" 



CHR* <27> a l020' 



■C" 

PRINT 



CHR* <27>"R85 



CHR* (27)"T22' 
* 1 TO 8s PRINT 
' i CHR* (27)"'" | 



I CHR* <27>"(" 

CHR* (27)"*" ; 
CHR* <I + 64>l 



CHR* <1 + 64 
PRINT : NEXT 



CHR* C9)"<10N": PRINT 



PRINT CHR* (27)"*': PRINT 

CHR* (27>"L8l8*i LIST 
PRINT CHR* (4)"PR*B"s HOME I END 
FOR J ■ 768 TO 773! READ C; POKE I,Cj NEXT 
DATA 165,6,32,237,253,96 

PRINT CHR* <4> H PR«l a : PRINT ; PRINT CKR* (27) I 

■| CHR* <9>"60N"J PRINT CHR* <27>"2" 

FOR I - I TO 84 i READ Ci POKE 6,C: CALL 748$ NEXT 

j PRINT 

RETURN 

DATA 27,43,27,73,65,72,255,1 ,1 ,1 ,1 ,1 , 1 , 1 ,66,72,1 , 
1 ,1 ,1,1 ,1,1 ( I ,67,72,1,1,1,1,1,1,1 ,255,68,72,255,8 
8 6 8 8 

DATA'S !69,72, 0,0, 0,0 ,0,B, 0,255, 70, 72,255, 128,128, 
128, 128, 128, 128, 128,71, 72, 128, 128, 128, 12B, 128, 128 
,128,128,72,72,128,128,128,128,128,128,3 28,255,4 
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Votre bibliotheque 
INFORMATIQUE 



par Clgment RENARD 



# Guide do PC (Modulo, B&tln) 

Je sais | rvous sammes icfi entre ufllisaVeurSr d Apple, mais 
qui, parmi nous, rTutilise pa* — dans le cadre cte son 
enireprise, norammenl — , ou ne sera pas amene a le 
faire, un IBM PC ? Vous ? olors, po*se2 voire chemin car 
ce GUIDE DU PC w gros bouqin de Lan PooJe (iraduction 
de Mtchele Briere ef Andre Cantin). est entieremeni 
d£dr£ a L'ardinatsur personnel IBM... que I'auleur vous 
propose ddpprivoiser. Ah ! comme j'oimerct* pouvoir 
disposer, sur mart 65C02. du Basic PC ! Evidemnvent, per- 
sonrte ne memp^ch* d'acheter un Mae, mais je suis 6 la 
Ms letu ei incondiiionnel de I Apple... alors, 
N'empeche, que j'ol fauitkrtt Je Gu/tfe du PC avec beau- 
coup dlnferfr. J* svi* gu£re doue pour ies langues 
tfltongires, mais j'avoue que la fangus parl4t cHez IBM 
m'esl plutal tarmliere, sauJ que, chez eux, certoins mots 
soul dlrectemenl compris par la machine, sondis que, 
chei nous, il foul Ies lui expliquer en lui fabriquont des 
routines appropr^es. 

Mais revenons ou livre : super. Bten presents, Men 
rddlgd, apporernmer*? cornplef avec des exempio* #t 
encore ctes examples, Bravo ! Lon Poole I 




Guide du PC 



IBM 



MODULO 

i hi 



BELINf 

• 



9 to t&f&'informaftque personn&lte 
(Hachotte informatique) 

Jo4l de Rosnoy a preface le livre de Jacques B-essieres, lequel 
Iravaille chei Apple... d'ou tes Applications aux ordinaieuc* 
Appl&, lb, nou* iommea bien en terrain tonnu. Lisez, braves 
gens, gurtouf si la t4l44nformatique personnel le ne vous laisse 
pas i^diiHerents. 

Que loul'il pour communkjuer ? Lbs secrets de fa communica- 
tion ? Tronspac... Lo pratique de quelques serveurs... L Apple 
et Ies connexions. .. Ies emulators ISM... ! e vid^Qiex.. 

J 'aural enumere Ies titres des chapiires de cet cuvrage quand 
j'aurai precise que Ies deux dernrers sont cansacres a i Apple if 
mkro^erveur d un guide prorfcqw de* communications. 
Arnsi, apffri avoir lu — ou d£von£ (il nest pas indigeste, 
croyox-ntoS I) — le text© de Jacques Bessieres, non seulemeni 
vows *aurez comment vous fcjuiper pour communiquer (via 
Apple), mois vous *or« en mature de cr6er votre propre 
micro-serveur. 

Urve invitation a io communication qui devratt 059>ur4menf ligu- 
rer en bonne place sur Tun des nambreux rayon* de votre 
biblfotheque informatique I 

Clement RENARD. 
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GRAPHISME ;; ; 4|y2cM^j 



I G ROSSI R ? 

Une simple formalite, avec le programme 
que vous presente Bernard GOURC 

POUR en comprendre le fonctionnement, commencez por suivre le deroute merit de la 
routine en langage machine (elle n est pas comment^©}. Utilisez votre assembleur si 
possible, mais ne vous d£couragez surtoui pas. Vous pourrez trfes blen vous cantenter 
du CALL — 151 hobituel, suivi des valeurs. De toute fo^on, de $6106 h $62F4, if n'y a plus 
rien a comprendre.,, puisqu il s'agit de la fonte de coracteres que vous fournit Bernard 
GOURC... en prime, bien sur. Resumons-nous ; 



GROSSER 




1. 


GROS (programme de $600(1 a $6105, puis fonte) 




2. 


DEMOl, en Basic 










se compose done de : 




3. 


DEM02, en Basic cgalement (299 M sur un dessln). 




GROS 


B 

I 

2 


CODE 
CODE I 


Eay 

EOV 


*u 

*FC 


68IE: E4 FF 
6928; E6 EE 
4822; C4 FB 


29 
38 
31 




INC 
INC 
DEC 


CFTEL 

L16B 

CPTE 




3 


CODE* 


ECU 


WD 


6024: D« EA 


32 




ENE 


AFFICHE 




4 


CQLQNNE 


EOU 




6826: 68 


33 




PTS 






5 


LI ONE 


EQU 






34 






6 


CPTEL 


EOU 


*FF 




35 


« DOUBLE 


LhPGE " - 




7 


MBi 


EOU 


W? 




36 


*fr»»*«*4+ft »»»* *#« » 




e 


CPTE 


EQU 


ffB 


6827? A9 87 


37 


DO. 


lDA 


EH? 






LG 


EQU 


»FE 


6B29i B5 FF 


38 




STA 


CFTEl 




te 


LI68 


EQU 


• EE 


6828: A5 89 


39 




LDA 


L1GNE 




n 




EQU 


♦EF 


682D: 28 11 F4 


48 




JSR 


*F411 




12 




6838: A4 B8 


41 




LDY 


COLONNE 




13 


• AFFICHE W CAfiACTERE t 


6032; Bt 26 


42 




LDA 


<*26\Y 




14 


»»•#*##•»**»»»*#**»##**» 


4834; 85 86 


43 




STA 


CODE 


mi: A9 M 


15 


AFl 


LDA 


Nil 


68 36 : 28 4B 68 


44 




JSR 


DOUBLE 


4082: B5 FF 


16 




5TA 


CFTEL 


6839: A4 88 


45 




LDY 


colonne 


6BB4; 69 87 


17 




LEA 


£187 


6838: A5 FC 


46 




LDA 


C0DE1 


6696 < 85 F8 


18 




STA 


CPTE 


6B3DT 91 26 


47 




STA 


«i26>,Y 


6988 £ A5 EE 


19 




_DA 


LIGB 


68 3F: CB 


4B 




Mr 




6B0A: 89 89 


2? 




ETA 


LIGNE 


6848; AS FO 


49 




LDA 


COM2 


mc: A5 EF 


21 




LDA 


COLB 


6842 r 91 26 


5B 




STA 


(*26>,Y 


690E: 85 B8 


22 




STA 


COLON* 


6844; C6 89 


51 




DEC 


LlBNE 


60! 8: A5 EE 


23 


AFFICHE 


LDA 


LIGB 


6844: C6 FF 


52 




DEC 


CFTEL 


6«I2: 20 11 F4 


24 




JSP 


*F4ll 


6I4B: Q« El 


53 




BNE 


DEBUT 


ill 5; A4 EF 


25 




L&Y 


COLE* 


604A: 60 


54 




RTS 




681?: A6 FF 


26 




LDX 


cpra 


68 4B; A5 86 


55 


DOUBLE 


LDA 


CODE 


4819: BD tt> 61 


27 




LDA 


CA«ACT,X 


404D: 29 8F 


56 




AND 


£*|F 


481 C: ?1 2* 


28 




STA 


«26>,Y 


6B4F: 65 87 


57 




STA 


i£M 4- 



TREMPUN MICRO 



VJ IX ^ — f 


(suite) 








187 




SEC 














6BAB: E9 96 






: *r 

■ t 1 


*- ~ V" *^ 


csflSl! A? 68 

VBW 1 4 rrf V V 


58 




LDA 




Afl AD- 3S 87 


£09 




STA 


HEM 


of Jv ■ oij ru 


Em 




STA 


CPTE 


AflAF' 38 


118 




SEC 




A*Vh ft5 PC 

<2V *J\J ft WW 1 M 


68 




STA 


COOEt 


A^Bd: £9 87 


111 

1 X A 




SBC 


£*B7 




6t 






C0DE2 


68B2: 65 FE 


112 




■» ■ ■ F 


LD 


6*59- A5 f ? 


62 






HEM 


69&4; A5 i? 


113 


AUTRE 


LDA 


M0^ 


A&5B- 46 


63 




LSR 

■ VI ■ 




AflRA; 29 U F4 
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Vous souvem le tout par BSAVE GROS, A$600B,L$2F3 

CQNTRdlE r T = 0: FORI = 24576 TO 2533C ; T - T + PEEK(I) : NEXT r PRINT T L« r*sulfa? doit *rre 47339 



UTILISATION 



On peut employer une autre fonfe de caracler&s (provenant eta TOOL KIT, par 
exempl©). II soffit de la dmrger t parti r de I'adresse Toulefois, le pro- 

gramme do Bernard GOURC e$f pc4vu pour travailier avec des caract&res de 7 bits. Or ctiux d© TOOL 
KIT sonl *ur B bit*. It co-nvisndfo done d* r«mploc*r '° valour 97 (ligne 17 r page 35) par 08- On obi lend ra- 
le mime r&ultot par POKE 54581 ,08. 

COMMENT AFFICHER StMPlEMENT UN CARACTfeWE t 

Placer en SEF (POKE 239,.,.) le num*ro de la cotenne ou on desire aHlcher (de Q h 39] et en SEE (POKE 
238, ..,) le num^ro de sa ligne de base {de 7 6 19). Ensuite, il taut placer I'adresse do carocfire dais la 
table en $6Qt A (portie basse) et S60IB (partie haute}. Ain&i r pour aHicher le premier caractlre de la 
table, on pourro soit fmoniteur} ecrire ; * 601 A ; 9663, salt [en basic) envoyer les pokes soivonls ; 
24602,06 et 24603,97 {97 = $61}- 

AFf ICHACE NORMAL i CALL 24576 - DOUBIE HAUTEUR ; CAll 24740 — DOUBLE LARGEUR : CALL 2461 5 
DOUBLE HAUTEUR ET LARGEUR : CALL 24802 

Attention I apr6s affrchage norniol, ne choistissez que Tune des 3 options et nan I e s trots successivemenl I 
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G ROSSI R. DEM0 1 



100 PRINT CHRS <4);"BL0A0 GROS' 
130 DEF FN H(ADR) = INT (ADR / 256) 
120 DEF FN L< ADR) = UADR / 2563 - P 

N Hi ADR) > # 256 
130 HGR r HC0L0R= 3s POKE - 16302.0 
140 REM *** hi* ##*#*#**#*#-»# ##### 
ISO REM * ECRIT * 

160 REN «**#**«*#*«*k«x#hm#»*#* 
170 C = OiL = 21:A» « 'GOURC BERNARD 

180 FOR F = 1 TO LEN CASK 60SUB 660 

tC = C + U NEXT 
190 REM *#**#*#**#*#»*#*******» 
200 REN *ECRIT+ DOUBLE HAUTEUR » 
210 REM *##*#*#**#*##**#*#***•*# 

220 C ■ 0:L ■ 21 

230 FOR F = 1 TO LEW CAS) 

240 GOSUB 660: CALL 24740 

250 C * C + 1: NEXT F 

260 REM ****#«#4t«»«*M »**#**#*## 

270 REM *ECRIT+ DOUBLE LARGEUR * 
280 REM 

290 C = 20:L = 45 

300 AS = • PRESENTS' 

310 FOR F = t TO LEN CA*> 

320 GOSUB 660 

330 CALL 24615 

340 C = C + 2: NEXT F 

350 REM #»#*##«##«#*#**#**#**#* 

360 REM *ECRIT+2#LARGE*2*HAUT # 

370 REM ##»#**#*#**#*#»##*#**#* 

380 C = 12: L = 84 

390 AS = "GROSSIT" 

400 FOR F ■ 1 TO LEN <A$) 

410 GOSUB 660 

420 CALL 24802 

430 C = C + 2: NEXT F 

440 HPLOT 0.1 tO TO 279,110 

450 REN **#*#*##K#*##*<nnii*»i#**# 

460 REM # TQUS LES CAPACTERES # 

470 REM if #*# 

480 C = 2:L = 171 

490 FOR A « TO 70 ! GOSUB 700 

500 C = C + 1: IF C < 38 THEN 520 

510 C « 2:L = L + 14 

520 NEXT A 

530 HPLOT T 154 TO 279,154 
540 REN 

550 REN « ANIMATION .... K 
560 REM #*#***##*«-**####*#**#*# 



570 FOR A = TO 70 
5B0 S = PEEK ( - 16336) 
590 C = 5:L = 134: GOSUB 700 
600 C = 15:L - 134: GOSUB 700: CALL 
24740 

610 C = 25: L ■ 134: GOSUB 700: CALL 
24615 

620 C = 35tL = 134= GOSUB 700: CALL 
24802 

630 S ■ PEEK ( - 16336) 

640 FOR T = 1 TO 100: NEXT T.A 

650 GOTO 570 
660 REM 

670 REN #AFFICHE UN CARACTERE # 
680 REN * «#**#***####*#*#*****# 
690 B» = MID* (A*»F,1):A = ASC (BS) 

- 32 

700 ADR ■ 24838 + (A * 7) 

710 POKE 24602, FN L(ADR): POKE 2460 

3. FN H<ADR> 
720 POKE 239. C: POKE 238. L: CALL 245 

76 

730 RETURN 
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10 HONE : HGR 

15 PRINT CHR* t4);"BL0AD GROS" 

20 PRINT CHR* 1 4) ; " BLOAD DESSIN' 

25 HCOLOR= 3t POKE - 16302.0 

30 REM ##•####*##*##*#*#####*# 

35 REM * DOUBLE HAUTEUR n 

40 REM «*«*«*«*K#M«*Nft#**«*#»« 

45 L = 182t REM LIGNE BASSE DE LA P 

ARTIE AGRANDIE 
50 A = 91: REM NOMBRE DE LIGNES AGR 

AN DIES. SO IT GRANDEUR DO CARACTER 

E 

55 POKE 24741 .A: POKE 24748. A - It 

POKE 24753 . A 
60 FOP T = 1 TO 2000: NEXT T: REM A 

TTENTE 

65 FOR C = 4 TO 25: REM NOMBRE DE C 

OLONNES TEXT AGRANDIES 
70 POKE 8,C: POKE 9,L: CALL 24740: 

REM INITIALISATION + APPEL ROUT I 

NE 

75 NEXT C . 
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LOGICtEL 



ProDOS 



D«rnl*re heuro : 1 200 F FT Inn Imu tie 2 000 F).,- 



l/n excellent traitement de texte : 



LE JONGLEUR DE MOTS 



I 



ONNAIS5E2-VOUS te Jongleur de 
Mct$ ? JoM , non ? Et poetique avec telu, 
£o font bon la vieille France, celle que 
I on retrouve avec tanl de plaisir quanrf 
on o le privil&ge de sojourner <iu Quebec, 

Cor Le Jongi&vr d&Mots est canadien (en longue 
onglaise, son titre — non moins 6voeat©ur est 
World Juggler}. J'avoue avott un foible poor tout 
ce qui vient de la-bas. Peut-£lre pafce que mon 
Poitou natal compte bon nambre de cousins des 
Canadians et Acodiens. Eux et mol ovonv ies 
mfrmes rocines terriennes. Ausss, amie Leclrice, 
ami Lecteur, no compte pas sur moi pour dtirno- 
lir" co traitemenl de texle en franfais (au Gu£- 
bee, on odopte volonfiers le tutoiement, e! c*esl 
sympa). S'll etalt m-ouvais, je n'en parlerois pos„ 
e1 voilo tout ! 

Premiere constellation ; Le Jongleur de Mots est 
bavard. Pommage que I'auteur de son mode 
d'ernploi ne soil pos Tun de nos distingues redae- 
teur* ! Tre-wplin Micro defeorderoH d'expli ca- 
tions. Le livret, 136 vraies pages, bien remplies 
— et redsgees dans un style agreabte — explique 
riellement comment uttliser au mieux le produil. 
Cest de Texcellente doc, dassiqu© dons In pre- 
sentation,, mais bien imprimee- 

Lei menus se revelent au mains oussi bovgrds 
que le bouquin... dont it est ceriafcnemeiit possi* 
bit de se passer, les commentaires du logkiel se 
suffisont d eux-nn^mes. Que I on ne se m£prenne 
pas : lorsque \ ecris "bayards", ce n'esl pas un 
rsrjroche au conlraire. 

Faur-il aborder les questions techniques ? Je sup- 
pose que vous nattendez pas Quire chose de moi. 
Scschez done que le Jongleur de Mots est uti I i sa- 
ble sous ProDOS (version 1.1.1, e'est-a-dire la 
bonne... celle qui est compatible avec les nou- 
veaux lecteurs Apple)- II est ecrit en assembleur, 
d'ou une rapidite qui n'a rien a envier aux aulres 
produits do cetfe cat&gorie {en mode "insertion" 
nolamment). Au moment ou je redige ces quel- 
ques lignes, mon Apple /te (avec son &5CG2) vaut 
une bonne machine a 6crire, el je retrouve bien, 
sur les 80 colonies de mon ecran. tous les coroc- 
bereft rentr^s au clavier {je vous sign ale au pas- 
jaqfj qui. 1 jc ne tape qu'ovec deux au trois doigts, 
mais ovec une rapidite satisfarspnte**.}. 



On se promene dans le fexte — pour inserer ou 
ef facer — par le fruchement des fl&ches et je 
vous assure que la sour is ne me manque ab&olu- 
ment pas- Pour ne rien vous cacher. si j'en suis 
partisan dans des utltitaires de *ype "Mouse 
Desk" (fameux I) Ou "Version Cak", j'appFecie 
lei son absence. 

Un detail ; pos de programme de coupure de 
mots dans Le Jongleur de Mots (cette cammodil* 
est I'apanage de Gribouille). En fait, oucun mot 
n'est coupe ; vous frappez voire texte ou kilome- 
tre et le lagictel se chorge de faire passer le cur- 
seur a la (igne suivanfe, sans transformer vofre 
correspondent en cher "con cftoyen". 

Un autre d4toil t les accents circonfiexes sonl 
sur les lettres, Camme je vous )e dis. On est 
Conodien ou on ne I est pas. Ouond on I'est, on le 
prouve en traitont so Jangue natale... mieux que 
les Cousins de France, Vous en deduirez nalureJ° 
lement que t'ecran est grophique. 



TREAAPLIN MICRO 




I 



LE IONGLEUR DE MOTS (suite) 

tl esi ban de nofer que tous les deplocements du 
curseur sonil prevus, ma is je vous. fais gr6ce de& 
vJngt possibilities que vou* offrent les Heches, 
aln&i que les diverses combinoisons avec Pomme 
Ouverle. C© serait inutilement fastidfeuw. 

Les rouches d'editlon sent plus nombFeuses 
encore et permanent de realiser des tas de cho- 
ses : changer, copter, dep later, eHocer. inserer, 
Irouver, etc. Au premier abord, un traitement de 
toxte paraTt fo-ufours difficile h assimiler. mots on 
a t6t fait, quond on f 'utilise regudierement, d'en 
mAmo riser les principaux codes. II resre que les 
fururs "Jongleurs de mots" applaudiront certaine* 
merit I'lnitiative de I'edileur : la fourniture, ovec 
les dlsqueites et le mode d emploi, d une petite 
bemde adhesive pour identifier certain** des lou- 
che* de I'Apple. 

El I'-mpression ? Afors \b r sachez qu'ovec une 
bonne imphmante (et notammeni ovec Image- 
Writer), la louche ESCAPE el une quarantine dm 
touches de controle, cm peul realeser Ea pfupart 
des presentations et impressions 4 al'mea, cen- 
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trage.. interJignage, justification, longueur de 
page et de texfe, marge, soullgnernent, gras, 
indi^oge ftup4rl*ur ou inferieur. etc. Ce&t reelle- 
meni Ires complel. 

Un* precision ; tous les codes soot repertories 
sur une "corte d* references'",., que i'ourah per * 
sonnetlement souhaitee en bristol leger pluiot 
qu'en papier (de bonne quality). 

Peut-on ulllUer des fichiers de donnees, des 
variables, PFS ou Quick File pour les lettres 
types, des (khiers de fexie Dos 3,3 ou Pascal ?,,, 

10 reponse 6 ces questions e** out, 

Ulifme constoiatlort s la longueur maximum d'un 
document ne pourra jamais depasser 735 lignes 
(en 80 cofonnes), avec 128 K de memoire... el d 
condition de ne pas abuser des variables, bion 
entendu. 

11 me reste £1 emettre un vceu ; que de nombreusc 
Lecteurs (je n'oublie pas les Leclrlces} de Trem- 
plirr Micro demoodent une demonstration du 
Jonglmsr cfe Mots b leur magasin "micro" 
prefere.-, 

Guy-HACHETTE. 

Jditont tUSGtOM, 39a*enuede Wogram, Paris - Ul 16(1) 43.ft3.86.69. 



■ ' i ™ DQ "- a | Inverse-normal 

C© court programme de demonsf ration ■■■■^^^^^^■■iSnii^Hi^H 

vous montrerci. mreux que de longs dis- 

cours, comment vous passer, dans un programme, des instructions INVERSE et NORMAL, 
rempJacees par CTRL-! et CTRL-N. Cela fonctionne aussi en mode direct. On en sort par 
RESET ou CALL — 1438 {pseudo — RESET). On rof rouve la function par Call 768. 

18 TEXT : NORMAL ! PRINT CHft* M2>i CHR* <'2nj HOME t 00SUB 138 

29 INPUT * COMB I EN DE MOTS ? " ;N: PRINT : !F N < I THEN 80 

30 FOR I » J TO NJ PRINT "MOT "I" -> ■ \t INPUT ""jM*: PRINT I PRINT ■ 
"M*" B ; PRINT t NEXT 

40 REM UN CTRL-I PRECEDE LES MOTS A METTRE EN IMMERSE, ET UN CTRL-N RAMENE 
AU MOPE NORMAL 

58 REM LES VALEURS NDRMALES DES ADPESSES 54 ET 55 SONT 189 ET 150 SO IT *9E 

BO, ADRESSE DE LA ROUTINE DE SORTIE DE CARACTERES <*3<4-37> 
69 REM CTRL-RESET RESTAURE LES PARAMETRES D'AFFICHAQE 
78 CALL - 19Bs POKE - id3*9,8; WAIT - 14384, 1 28 $ POKE - 163o8,0 
38 HOME i LIST IB, 48 

90 UTAB 23: PRINT "MENU DE DISQUETTE FINI DE JOUER* " \: GET Rts POKE - 1 
4348,0 

180 UTAB 22? PRINT : IF ft* = "M* THEN PRINT Of RUN MENU" 
118 HOME t END 

130 FOR I = 748 TO 908: READ Ri POKE I ,Rt NEXT j CALL 748: RETURN 
148 DATA 149,11 ,133,34, 149,3, 133, 55, 74, 234, 3, 281 ,137,208,5,149,43,133,58,96 
,281 ,142,208,5,149,255,133,58,94,32,248,253,94 
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CUV HACHETTf 



UTILITAIRE 



DOS 3.3 



Long, mm tres interessant ! 



VISU-PUCE 

par Maurice CHAVELLI 




OtCI un programme qui devralf taire 
plaisir au debutant. Quo celui-c* ne 
s "elf role pas devont sa longueur. II 
pourro ruiillser sans n^cessairement 
savoir comment ii fonctianne ; c'est d'aifleurs ce 
qu i* fail avec le BASIC J J'y al toutefois mis sufft- 
sa m merit de commentaires pour que tes crcouro- 
geux» puissent &> retrouver, Quant aux habitues 
do Tossembleur, *h doivent posseder un debugger 
comme Bug Byter bien plus performonl... mais pas 
la u jours plus pratique. 

V/sy-Puce, comme son nom Hndique, permet de 
voir ee qui so passe dans votre Apple lorsque 
<*tourne» un programme, avec la possibility de le 
suivre pas 6 pas, en affkhonr rttal des registres et 
de 4 me mo ires (definissab)es seion tes besolnt , en 
bJnolre. hexadecimal, decimal. ASCII}, II permei 
aussi de modifier ces valeurs 6 taut moment. La pi\e 
est 4gol#ment aftich6e et peur etre ladlement 
edit£e. 



INSTALLATION 

Le programme BAS.VISU permet d'instoller VtSU* 
PUCE 6 lodresse $9000 (36B64) et les deux £crans 
MASQUE et HELP dans la carte tangage en MEV2 
($DO00-$D3F7 et SO40S-SD7F7). Le premier ikran 
est indispensable el ne doit pas etre moditie J Le 
second est faculfatif. puisqu'i! sert uniquement 
d'oide-mimolre (II est appeli par «?» el peut etre 
supprime a condition de ne plus uttliser la common - 
de ?). D'autre part, I' Ampersand est vectorise, ce 
qui veut dire que vous pouvez oppeler ViswPucoh 
porfir du Bosk, directement en tapant &, suivi bien 
sur de indispensable RETURN. Du monHeur, par 
tontre, 11 vous faudra toper 9000G et RETURN. 

CREATION PES ECRANS 

Commencez done par creer les deux herons & Colon 
de FAIRE.ECRAN, paru dans le numiro 1 de Trem- 
plin Micro ou de tout autre programme de creation 
de masque. N'oublier pas de les sauver sur dis- 
quette ! Entrez ensuite le gros marceau VISLLOEU0 
et le programme en 6ask V1SUXH. Un RUN VISU.CH 
lancer a la rout in e. 



DEMARRAGE 



Vous avez maintenant MASQUE sur vatre £cran el 
un «f » en haul a gauche (qui o &te occompagne d'un 
hip bien connuj Si ce n'est pas le cas, c'est que vous 
avez commis une erreur de frappe quelque port... 
alors GOTO aud£but 1 

Si loul a fonctiann^ normoloment. bravo I Le plus 
dur est poss£. Tapez maintenant un «?w (pos les 
guillemeis ; juste le point d 'interrogation I) suivi de 
RETURN [\e ne le dlrai plus}. Vous devei retrouver 
ovec un plaisir bien comprehensible votre ecran 
HELP. Tapez une louche pour revenlr- Vous save* 
mainlenont comment combler un Irou de m£moire a 
lout moment. 



PREMIER ESSAI 



Entrez <4A = 56» (toujour* sans les guillemets ; fe ne 
le dirai plus nan plus); avez-vous vu changer lo 
voleur de A ? Essayez avec une autre voleur (la 
valeur etant en HEXA. il laul* vous limiter b deux, 
chittres). Si tout va bien, essayez aussi avec X,Y et 
P, par eaemple uP = 7». 

Le bas de I'ftcran es1 reserve a I'aHlchoge de 4 
m^moires danf vous pouvez determiner les adres- 
ses 6 tout moment. 

Essay©/ «M1 ~^QQ9>h essayez de m&nfi M2, W3 et 
W4 (tci aussi lo valeur e«t en HEXA et doit done etre 

I i mi tee i 4 cMfros), 

II y a quelques limtlafions en page : <ca ne mor- 
chero pas pour les adresses de $18 6 $1F, car el l es 
sont utillsies par le programme- Par contre. elles 
son* sauvees puis resfaurees et un programme qui 
les ulillser ail ne serait done pas perturbs, Certaines 
odresses son! modifies par Wsw-fuce grflce aux 
routines du moniteur qui I utilise. 

Important i evhex la zone des entrees/sorties qui 
d^morre en $C00fl et q^ui conthenl des commuia- 
teur^ logiciels- De toute fa(on d si vous vous retrou- 
vez coince, un RESET vous romenera en principe au 
BASIC, 

Tapez maintenant c(S?) ( vous voyez un curseur cli- 
gnotont au sommet de la pile. Tapez la louche fle- 
che 6 gauche ef tout est remonte d'un cran ; vous 
avez d4pjl£ une valeur, celle-ci est maintenant 



TREMPLIN MICRO 



41 



pordue. Pour empiler une valour, II suffit de I'entrer 
au clavier : essayez «3Ai> {pour urve lois sans 
RETURN). Habituei-vous un moment 6 ces opera- 
tions {donf vous sortirez par ESC). 



SUITE 

Vous void prSt poor les chases s£rieuses. Tapez 
h£6FB», vans ave* la premiere instruction du pro- 
gramme qui demarre en SC6F8 disassemble sur la 
deuxi&me ligne de 1'ecran. Vous pcuvez alors 
taper ; 

1, Fleche 6 droits pour sauter h I' instruction sui- 
vante sans exetuter la premiere* 

2, La barre dUSPACE pour executer (Instruction et 
voir son action sur le* regtsfres. II vous faudra 
taper b nouveou la barre d'ESPACE pour affi- 
dwr (Instruction suJvant*. Cette procedure on 
deux temps permet un meilleur <<suivi>* du 
programme. 

3, RETURN pour ex£culer le programme sans 
interruption ; vows pouvez I'arrAler 6 lout 
moment par la barre d'ESPACE. 

EntraTnez-vous h ces drlferenfes manipulations; en 
SE6FB so Jrouve justo uno routine basic sans risque, 
et relotivernent langue. 



Vaus risquez d J avoir quetques surprises dans les 
routines du manileur g^ranl les entrees /sorties car 
Vhv-Poco les ulllri* aussl I 

Essayez par exemple I'adresse $FOED qui canlient la 
routine COilT de sortie des ta racteres. Vous pouve* 
aussF ess aye r ovec Vi$ir~Puce qui d£marre en 
S9P0B. Sorter par RESET si ta coince, puis tapez «&» 
pour revenir. 

Vous reviendrez 6 lout moment au mode commande 
(bip ef point d' exclamation) en taponl la louche ESC. 
De la, vous accede rez au moniteur en Sopant kQ»„ 
ce qui peut Sire n^cessoire pour changer ta valeur 
d'une adress© por exemple, ou driplocer une zone 
mdmoire par la routine MOVE, ou mSme utiliser le 
miniossembleur du BASIC INTEGER, 
Pour reirouver le programme ou vous I'avez taisse 
(si vous n'avez pos touch* 6 POL et PCH), iJ suffit de 
ia per 94KKJG pour r<kup*fer Vf$v*Puce et, ensulle, 
simploment RETURN derrl&re le point d'oxda- 
motion. 

Apr&s co tour d'horizan do* commande* de Vfsv- 
Puce r i\ ne me reste plus qu'a vaus souhaiter une 
Iructueuse exploration en profondeur de voire 
Apple et une meSlleure comprehension des pro- 
grammes en assombleur qui paraissonl dons 
Trvmpim Micro. 

Maurice Chdvdli. 



MASQUE 



Realisez 

cet ecran 

avec Faire-Ecran 

(Tremplin Micro 
n°l) t puis 
sauvez-le 

sur dtsquette sous le 
nom de MASQUE. 

II va 
de la 4* 
a la 24* ligne 



! PILE ! 


























* ; i 


j -> 
























X 














i * i ; ; 






Y 














! * * i ! 






P 














5 , » » 










• * ; 




! 






! * ' i * 




\ ♦ 






i * 

! i * 


! 








f * ! 

■ 




« * 






! * i • 










• ! 
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GUY-HACHETTE 



SI VOUS NE 
POSSE DEZ PAS 
D'ASSEMBLEUR, 
CETTE 
COLONNE 
EST LA SEULE 
A RECOPIER. 



90 UO 


B A 






9001 : 


86 


49 




9003 : 


A9 


Al 




9005 - 


BS 


33 




9007 


A9 


DO 




9009 : 


8D 


C7 


92 


900C : 


A9 


03 




9GO fc 


BD 


CF 


92 


9011 : 


20 


Bf 


92 


90 U : 


20 


9D 


91 


9017 ; 


A9 


03 




9019 ; 


SD 


33 


93 


901C ; 


85 


23 




901E ; 


30 


58 


FC 





t 
2 
3 
4 
5 
6 
7 

9 
TO 
I I 
12 
13 
14 
15 
16 
17 
IB 
19 
?0 
21 
22 
23 
24 
25 
26 
27 

2a 

29 
30 
3i 
32 
33 



37 
38 
39 
40 
41 



44 

45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
54 

57 

53. 

59 

60 

61 

62 

63 

64 

65 



Version 1 ,0 



VISU-PUCE 

Maurice Chavelli pour Tremplin Micro • (Oelobre 85} 



WND&1M 


EQU 


£23 


CH 


EQU 


£24 


cv 


EQU 


$25 


LENGTH 


EQU 


£2F 


ADD 


EQU 


£IS 


PKO.V.H r 


EQU 


£33 


PCL 


EQU 


$3A 


PCH 


EQU 


£36 


A2L 


EQU 


S3E 


A2H 


EQU 


£3F 


ACC 


EQU 


£45 


XREG 


EQU 


$46 


YREG 


EQU 


S47 


STATUS 


EQU 


£49 


SPNT 


EQU 


S49 


IN 


E O U 


£200 


K60 


EQU 


£C0OO 


STROBE 


EQU 


£C010 


LINPRT 


EQU 


SED24 


INSTDSP 


EQU 


SF8D0 


PRNTAX 


EQU 


SF941 


PRBLNK 


EQU 


SF94S 


PCADJ2 


EQU 


SF954 


PCADJ3 


EQU 


SF956 


UP 


EQU 


SFC1A 


VTAB 


EQU 


SFC22 


HOME 


EQU 


£FC5B 


LF 


EQU 


SFC66 


RDKEY 


EQU 


SFDOC 


GETIN 


EQU 


SFD6A 


PRRYTF 


FOIJ 




PRHEX 


EQU 


SFDE3 


COUT 


EQU 


SFDED 


BELL 


EQU 


SFF3A 


RESTORE 


EQU 


SFF3F 


SAVE 


EQU 


SFF4A 


MON 


EQU 


SFF65 


GETNUM 


EQU 


*FFA7 




ORG 


S90 00 




TSX 






STX 


SPNT 




LDA 


£'T 




STA 


PROMPT 


RECUPERE LE MASQUE 


MASQUE 


LDA 


tSDO 




STA 


CGA+1 




LDA 


E$D3 




STA 


CGB + 1 




JSR 


CHARGE 




JSR 


AFFICH 


INITIALISATION 


INIT 


LDA 


C$3 






MODE 



Bos, di? lu <eo£wo 
- Pa&iUorts homonlalea... 
; * • d ver! icalcs du tu r sou r 
; Longueur de hnslructkm desassombleo' 
: Poinleuf pout Ml . M2, M3 el M4 
; Visu-Pute ' ! " au lieu de "*" 
. Sauvngardo du..- 
. ...compleur ordinal 
: Mennolre de Iravarl , 
■ ..-pour GFTNUM 

| Sauvegarde... 

registro* 

Buffer d J entree 
Re-caU le caracr&re du clavier 
Remel 6 le bil 7 de KBD pour nouvelle toucb* 
AfficKo lo valour dee, de A,X 
Disassemble UnytrvcHon pointee par PCL. PCH 
Afflche le conlenu de A,X en 4 chlffres HEXA 
3 espaees 

Misfl a jour PCM ot PCL... 
...pour instruction sujvanie 
Monte Re curseur d'une ligne 
Mel le curseur sur la lion* A 
MeMaie I'ecran 

Descend le curseur d'une Ikgne 
Aitend une loycfia av*c curseur cligjiotanl 
Attend uno l&gtio do commands, fin paf Return 
Attkhe i* contenu do A en 2 chiffres HEXA 
Alfkhe le paid* foible de A on 1 chnMre HEXA 
Attfche le car. contenu dons A 
Eme1 un charmam BIP I 
Raeupexe A.X.Yet P 
Sauvogordo de A.X.Y.P et S 
Enfr&e dans le Moniteur 

R^tupere on nombre HEXA & le me* dans A2L.A2H 
Adresse de debul de pr ay t am me 
On sauve le poinfeur,.. 

On change. „ 
le PROMPT 



STA 
JSR 



WNDBTM 
HOME 
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Si MODE =0 ; Pas a Pav rVlOOE « 1 ; Posse sans ex£c 
Reduil la fciieire dux 3 premieres llgnes 
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»«' 




mmmm 


piiifffi 


uniMi 


■nwvsram 


MIlNHMWi 


lillHIIIMIIIHUIINIHIIiUIMIHUIHIIMIIt 


71/ £ 1 


itf 


3A 


FF 


67 




J5R 


BELL 








6A 


F D 


68 




JSR 


GETLN 




CWY*TT 


fcu 


00 




69 




CPX 




5f RETURN direct... 


l i iT j u 


rO 


38 




70 






INIT2 


; ...reprise au point d'orr£>1 


Ql'l 

• «• H ' • 




00 




71 




tox 








el r*k 


00 


02 


72 




LDA 




Promier carqcf6m dans A 


7WJv 


•wT 


Dl 




73 




GAAP 


£ Q' 


; Si ce n est pas Q", 


9332 


do 


OA 




74 




BNL 


mm 


. ..on saute la sorlle vers Moniteur 


Qr ill 


AO 


IS 




75 




LDA 


£$18 


: On remef une... 


9036 


85 


23 




76 




STA 


WNDBTM 


: ...fenetre norm ale 




20 


58 


FC 


77 




JSR 


HOME 




- -' 






FF 


78 
79 




IMP 


MOW 


; On passe la main au monifeur 










30 
81 
82 


TEST DU PREMIER CARACTERE 


tin tC 


cv 


6F 




INIT1 


CWP 


r?" 




M : 1 [J 


ry 


50 




83 




BEO 


HELP 






(-7 


03 




B4 

85 




CWP 


£"S" 




tU'14 


i ■ i 


64 






BEQ 


INITS 




f J "I -' r' 


fa 

V.- 7 


CI 




86 




CftAP 


£"A" 






PA 


1C 




87 




BEQ 


INITA 




TUP ** r\ 


f~ □ 


08 




8"8 




CMP 


£"X" 






i n 


23 




89 




BEQ 


tNITX 






/*o 


D9 








CMP 


r'Y" 




tin 




2A 




91 
92 




BEQ 


INITY 




1 - 


r cj 

L" 


DO 






CMP 


rp" 






l n 
ru 


31 




« 




BEQ 


INITP 






r*a 
Vt 


CD 




I* 




CMP 






VI""' 




53 




95 




BEQ 


INITM 












96 


On recupfcre I'adresse entree ou clavier,., 










97 


., ,pour 


lomettre en PCL.PCH 




90 5 A 


: AO 


00 




98 


IDY 


£$0 




905C 


20 


E4 


92 


99 




JSR 


BUFFI 




once 


_r 
Oj 


3A 




too 




STA 


PCL 




9061 


: 66 


:in 




101 




srx 


PCH 








FA 


90 


:o 
103 


INIT2 


JMP 


DEBUT 












104 


MISF A IOLIR DFS RFGISTRES PAR FMRFF AU 1 1 AVltR 


TtflJO 


Oil 


E2 


92 


105 
106 


INITA 


JSR 


BUFF 




9fi/i9 


Oj 


45 




107 




STA 


ACC 




vuoo 


on 


90 


91 


10S 




:sr 


AFFICH 






4 1_ 


17 


90 


109 




JMP 


INfT 






On 


E2 


92 


110 


INITX 


JSR 


BUFF 






BD 


46 




111 




STA 


XREG 








90 


91 


112 




JSR 


AFFICH 






4L 


17 


90 


1 13 




JMP 


INfT 






on 


E2 


92 


1 4 


INITV 


JSR 


BUFF 






P M 

□ J 


47 




115 




STA 


YREG 








9D 


91 


1 16 




JSR 


AFFICH 




9084 


. 4C 


17 


90 


1 17 




JMP 


INIT 






/w 


E2 


92 


118 


INITP 


JSR 


BUFF 




903A 


85 


48 




119 




STA 


STATUS 




90SC 


20 


9D 


91 


120 




JSR 


AFFICH 




gin nr 




17 


90 


121 
122 




JMP 


INIT 












123 


TRAITEMENT DU — * 


EC RAN DE RAPPEL DES COMMAND ES 


oji an 


A9 


04 




124 
125 


HELP 


LDA 


£$D4 


; Ajuste 1 es ad resses. . , . 


* j m 


□ Pi 


C7 


92 


126 




STA 


CGA+1 




T\lT/ 


A O 
A7 


D7 




127 




LDA 


£$D7 






a D 


CF 


92 


128 




STA 


CGB+1 




TW TV- 


/V 


BF 


92 


129 




JSB 


CHARGE 


; ...et charge I'ecrafi. 


909F 


AD 


00 


CO 


1W 


H6LP1 


LDA 


KBD 


Attend un-c... 


90 A2 




FB 




131 




BPL 


HELP1 


; ...fetiche 


90 A4 


8D 


10 


CO 


132 




STA 


STROBE 




90A7 


4C 


07 


90 


133 




JMP 


MASQUE 


; On Tapqrt qu d^fauf pour rocuporcr lo mnsquo 


90 A A 


4C 


23 


93 


134 
Minn 


INIT5 


JMP 


PILE 


; Edition do la pi la 



44 



GUY-HACHETTE 



?OAD : 


AD 


02 


04 


?oeo : 


AO 


03 




: 


C9 


Bl 




90B4 : 


FO 


17 




9066 : 


C9 


B2 




90B8 . 


FO 


22 




9QBA : 


C9 


B3 




90BC • 


FO 


2D 




906E ! 


20 


E4 


92 


90C1 . 


£D 


92 


93 


90C4 : 


BE 


93 


93 


90C7 ; 


20 


9D 


91 


90CA 


4C 


17 


90 


90CD : 


20 


£4 


92 


90D0 . 


SD 


BC 


93 


90D3 


BE 


3D 


93 


9006 ; 


20 


9D 


91 


90D9 


4C 


17 


90 


9QDC 


20 


E4 


92 


90OF • 


80 


BE 


93 


90 £2 . 


BE 


6Y 


93 


90E5 - 


20 


9D 


91 


90EB - 


4C 


17 


90 


9-3 EB 


20 


E4 


92 


90 EE « 


9D 


90 


93 


90F1 


BE 


91 


93 


90F4 


20 


9D 


91 


90F7 . 


4C 


17 


90 


90FA : 


2a 


SB 


FC 


90FD : 


20 


DO 


FB 


9100 - 


20 


EC 


92 


9103 


C9 


OT 




9105 


FO 


61 




91i07 


A 'J 


i . i 




9109 


80 


41 


91 


9!0C 


8D 


42 


91 


91 OF 


80 


43 


91 


9112 


A2 


00 




91 M 


Al 


3A 




91 \6» 


FO 


43 




91 IB 


A4 


2F 




91 1 A 


C9 


20 




91 1C 


MJ 


54 




911E 


C9 


60 




9120 


FO 


40 




9122 


C9 


4C 




9124 


FO 


57 




9126 


C9 


6C 




9126 


FO 


54 




91 2A 


C9 


40 




91 2C 


FO 


30 




9I2E 


79 


IF 






49 


1 4 




9132 


C9 


04 




91 34 


FO 


02 




9136 


Bl 


3A 




9133 


99 


4 1 


91 


9136 


36 






91 3C 


10 


FB 




91 3E 


20 


3F 


FF 



135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

(47 

146 

149 

■ 50 

151 

152 

153 

154 

>55 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

16B 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

ISO 

1B1 

182 

183 

Ifu 

185 

186 

1B7 

IBS 

189 

190 

191 

192 

193 

*94 

195 

196 

197 

198 

199 

2\}0 

201 

:-3? 



MISE A JOUR DES ME MQ1RES M1 M2 M3 ct M4 

; On r*qijp*rn le 2* catoci&re 



INiTM 


LDA 


$402 




LDY 


£$3 




CMP 


£' r l " 




BEQ 


fNITMl 




CMP 


£"2" 




BEQ 


INITM2 




CMP 


£"3" 




SEQ 


INITM3 




JSR 


BUFFI 




STA 


SV2+6 




SIX 


SV2+ 7 




JSR 


AFFICH 




JMP 


INIT 


INJTMI 


JSR 


BUFFI 




STA 


SV2 




SfX 


SV2 i 1 




JSR 


AFFICH 




JMP 


INIT 


INITM2 


JSR 


BUFFI 




STA 


SV2 + 2 




STX 


SV2 + 3 




JSR 


AFFICH 




JMP 


ink 


INITM3 


JSR 


BUFFI 




S T A 


5V2+4 




STX 


SV2 + 5 




JSR 


AFFICH 




JMP 


INIT 



On r&cup&re Ja valeur entree au clavier 



CETTE PARTI E ftEPRENP PRATIQ L t M E N T 
LA ROUTINE STEP DES PREMIERS APPLE 



DEBUT 



JSR 

JSR 

JSR 

CMP 

BEQ 

IDA 

STA 

STA 

STA 

LOX 

LDA 

BEQ 

LDY 



HOME 
INST DSP 
KEY 
£$1 

PCINC3 

ESEA 

INSTR 

INSTR i } 

IN5TR + 2 

£00 

(PCl.X) 

BREAK 

LENGTH 



S&rle de rests pour I' instruction 
CMP £$20 



ECIN 
ft* LAI 



BEQ JSP 

CMP £$60 

BEQ RETOUR 

CMP £$4C 

BEQ JUMP 

CMP £$6C 

BEQ INJUMP 

CMP £$40 

BEQ XRT1 

AND £$1F 

EOR £$U 

CMP £S04 

BEQ RELAT 

LOA {PCLJ.Y 

STA INSTR.V 
DEY 

BPL ECIN 

JSR RESTORE 



Desowernble l r i nit ruction 
Attend on« touch© r ESCAPE. 
Si A - I or* passe sans ex Neuter 

On mot defi. NOP 



On met I 'instruction dons A 
SI 00 — » BRK 

Longueur de I'lnsiruction dans Y 

Si JMP 
Si RTS 
Si JMr 1 

Si JMP indirect 
Si RTI 

Test t&v branchement retalif 

10 30 50 70 90 60 DO FO 

On place I'instr. dans INSTR 
On rAcup&re Its reolsires... 



I DU 



TREMPUN MICRO 



■WHfll 

9141 i 


immwrn 

EA 


■■■■ 


mil 


mm 

203 


IffllllHJ 

IN5tfc 


MOP 




9142 : 


FA 






204 




NOP 




9143 : 


EA 






205 




NOP 




9144 5 


4C 


55 


91 


206 




JMP 


NBREL 


9147 ! 


18 






207 




CLC 




9M8 : 


AO 


01 




208 




LDY 


£Sfl 1 


914A : 


Bl 


3A 




209 




LDA 


(PCL).Y 


91 4C : 


20 


56 


F9 


210 




JSR 


PCADJ3 


914F : 


85 


3A 




211 




5TA 


PCL 


9151 i 


98 






212 




TYA 




9152 ; 


38 






213 




SEC 




9153 : 


BO 


11 




214 




BCS 


PCINC2 


9f55 ; 


20 


4A 


FF 


215 


NBREl 


JSR 


SAVE 


9T5e : 


38 






216 




SEC 




9159 : 


BO 


0D 




?!7 




BCS 


PONC3 


9156 : 


4C 


63 


90 


218 


BREAK 


JMP 


INIT2 


9T5E : 


18 






219 


XRTI 


CLC 




9I5F : 


68 






220 




PLA 




9160 : 


85 


48 




221 




STA 


STATUS 


9162 i 


68 






222 


RETOUR 


PLA 




9163 : 


85 


3A 




223 




STA 


PCL 


9165 : 


68 






224 




PLA 




9166 : 


85 


38 




225 


PCINC2 


sr a 


PCN 


9\ 6B ; 


AS 


2F 




226 


PC1MC3 


LDA 


LENGTH 


916A : 


20 


56 


F9 


777 




JSH 


PCADJ3 


91 6D ; 


84 


3B 




228 




STY 


PCH 


916F : 


T 8 






229 




CLC 




9170 : 


90 


14 




230 




BCC 


NEWPCL 


9172 : 


18 






231 


JSP 


CLC 




9173 : 


20 


54 


F9 


232 




JSR 


P CAD J 2 


9176 : 


AA 






233 




TAX 




9177 i 


98 






234 




TYA 




917B : 


48 






235 




PHA 




9179 ; 


8A 






236 




TXA 




917A ; 


48 






237 




PHA 




917B . 


AO 


02 




238 




LDY 


£$02 


917D 5 


18 






239 


JUMP 


etc 




917E : 


ai 


3A 




240 


INJUMP 


LDA 


(PCL).Y 


9190 ; 


AA 






241 




TAX 




9101 i 


88 






242 




DEY 




9182 : 


Bl 


3A 




243 




LDA 


(PCL),Y 


9184 : 


86 


38 




244 




STX 




918A : 


85 


3A 




245 


NEWPCl 


STA 


PCL 


9198 : 


BO 


F3 




246 




BCS 


JUMP 


918A t 


BA 






247 




TSX 




91BB 


86 


49 




248 




STX 


SPNT 


91 &D : 


AD 


83 


93 


249 




LDA 


MODE 


9190 : 


C9 


01 




250 




CMP 


£$1 


9*92 : 


FO 


06 




251 




HfcQ 


NEW1 


9194 


20 

H 


9D 


91 


252 




JSR 


AfFICH 


9197 : 


20 


EC 


92 


253 




JSR 


KEY 


OIQA 
T* TP*. 


4 a. 




VV 


■y : • 


NEW1 


JMP 


DEBUT 










255 
















256 
257 


ROUTINES D'AFFICHA* 


919D : 


A9 


18 




258 


AFFFCH 


LDA 


esis 


919F : 


85 


23 




259 




STA 


WNDBTM 


91AI 


A9 


07 




260 




LDA 


E$7 


91A3 : 


85 


25 




261 




STA 


CV 


91A5 : 


20 


22 


FC 


262 




JSR 


VTAB 


91AB ; 


A5 


45 




263 




LDA 


ACC 


91 AA ; 


20 


48 


92 


264 




JSR 


BHD1 


91 AO : 


A3 


46 




366 




LDA 


XREG 


91 AF : 


20 


46 


92 


266 




JSR 


BHD! 


9182 : 


AS 


47 




267 




LDA 


YREG 


9)B4 ; 


20 


48 


92 


26S 




JSR 


BHD1 


91 ft? : 


A5 


48 




269 




LDA 


STATUS 


91i89 i 


20 


48 


92 


270 




JSR 


BKDl 






IWI 


■ fin 




milillll 


VfllH 


Iflilillfffl 



; (ll gn ax Acute I inalruchon. . 

. .que I on a d£pos£e lei 

; Si pa& branchement ralatif 

; Si brancbemenl relatif ... 

; ...on CQlculew. 

; ...lo nouvefta... 

; ...odresse 



; toujour* ■ 

: On sauvegard© Jes regiatres pour lo prochoin© 
: toujour* i 

: En casde BRK, re+Qwr 6 INIT 

; £n ca* dfr RTL*. 

: ,..an r£eupfcre 1'odresse, . 

. ..der&taur 
■ Idem pour RTS 



On sfacka fa partfce haute 
Longueur fcrwSruellorii dans A 
On colculo la nouvelle adresse 



toujour* I 
Cos du JSR 

On e-mplle*.* 

...du retour 



; Gas du JMP indirect 



Urt 2° lour pour I 'indirect 1 
On ojuste Se pointeur... 
. . d* pite 

E&f-an en rnada pcntsage... 
...sans execution ? 



; On rdtabiif une... 

...ten dire normoln 
; On vo d la lign* 6 ($6 comment* a z£ro ! I 

; On r£cup&re lo vaJwr da A, , 

. ...et on I'oKiche *n BIN, H£XA, DECl, ASCI 

: Jd*rn pour X,Y,P 



4A 



GUY-MACHETTE 









771 


JSR 


LF j On descend dv 2 f.gne& 


Y I or 




h(* FC 




JSR 


LF 








Mm- J %J 


On sauvfrgord© 


I95 adrossos $ 1 8 A $1 F. . . 








274 


...qui vont &tre ^cras6os 


9IC2 


: A2 


07 


775 


LOX 


£SQ7 


91 C4 


: ^5 


18 


276 


BCll LDA 


ADD.X 


91C6. 


: 9D 


84 93 


277 


ST A 


SV 1 , X 




: CA 






OEX 




91CA 


i 10 


FB 


^ F 


BPL 


BCll 


9irr 


■ A2 


07 




LDX 


£$07 








iu 1 


On rScupfere Ml # M2 f M3 r M4 pegr... 










m*tfrfrda$lS&$lF 


T 1 tit 




SC 93 




fiCL2 LDA 


SV2,X 


TIL/I 


- 95 


1 8 


y ■ . *» 


5TA 


ADD r X 


91 m 








DEX 




□ 1 




FA 




BPL 


BCL2 










On affiche ces m^wnolret *t l»ur* vottura 


r 1 UO 


• ACS 




JEOQ 


LDY 






• bc 


82 93 




STY 


IN0 








1 H 1 


AFFI JSR 


BHD 


91 DF 


EE 


82 93 


291 


INC 


IND 


91F1 


: EE 


B2 93 


292 


INC 


1ND 




AC 


82 93 




LDY 


IND 


QIF7 


* CO 




294 


CPY 


£$8 




• FO 




?9 , S 


BEQ 


AFF2 ; Fin d» I'cyffichoge d-es m^moirfl? 


o i f n 


* CO 


QA 




CPY 


£$4 


TICU 


. FO 

' w 




297 


BEQ 


AFFI 


FF 




1A FC 




JSR 


UP 


T ■ ri 




DB 91 


29*T 


JMP 


AFFI 








JlIM 
_ A 1 ■ 


On roslaure les adresses $18 6 ST F 


1 

t 1 rj 


• AO 


0*7 




AFF2 LDX 


£$07 


VIP/ 


□ n 

D L/ 


Bit 93 


Ov i 


BCL3 LDA 


SV1 t X 


□ 1 CA 

7 I rrt 




1 A 


•-fVJ 


ST A 


ADD.X 




f 4 




art j 


DEX 




qi pn 




FS 




BPL 


BCL3 








n r 


Alfhchage d© lo oil© 


91 FF 

Tl rr 


- FA 


EA 


id ? 


NOP 


NOP 1 ligno p> b'ldon 




A9 


g n 




LDA 


£SG3 










STA 


CV 




• 20 


if. x. ' 


-j 1 1. 1 


JSR 


VTAB 




: Af: 


49 


$11 


LDX 


SFNT 










INX 






■ AO 


OF 


-wJ 1 


LDY 


£$E ; Souloinent 14 valeurs 


'-i r i r i 




ai i 


■^14. 


AFF3 CPX 


£$a^ ; Test d© dihordemenl 


t xup r 


1 V 


1 ft 


Tl 

■J i ■«p' 


BEQ 


AFFS 




AO 

- F*^ 7 


□1 

wv 


Tl ft 


LDA 


£S3 


7* 1 J 


- AS 


OA 

A r *F 


T17 


STA 


CH 


7i 1 J 




ao a i 

W W 1 


J 1 u 


LDA 


sioa.x 


Ti 1 □ 




DA FD 


319 


JSR 


PRBYTE 




r h 






INX 








66 FC 




JSR 


LF 


Q71 F 


■ 8S 




322 


DFY 




fJL w 




tb 


323 


8NE 


AFF3 








324 


R6o|usternefit Ivn^rv ot relour 


'i / / 


* A9 


03 


325 


AFF4 LDA 


£$3 


F X.**f 




23 


326 


STA 


WNDBTM 








327 


RTS 










— ii □ 


Mel dos "blano" pour finlr la pile 


-it: t 


AQ 






AFFS LDA 


£S3 


•QOTQ 
TMV 








STA 


CH 




■ 20 


48 F9 


331 


JSR 


PRBLNK 


922E 


3 20 


66 FC 


332 


JSR 


LF 


9231 


: 68 




303 


DEY 






: DO 


F3 


334 


BNE 


AFFS 


9234 


; F0 


EC 


335 


BEQ 


AFF4 



337 ROUTINES PE CONVERSION BIN, HEXA, PECt ASCII 
33a -— """" "~ ~ ^ 



TREMPLiN MICRO 



r236 


A O 

AV 


n □ 




JJ'- 1 


BHD 


LOA 


1 1 f 


r23B 




n m 

2* 




3 -i 




ST A 


CH 


?23A 


B9 


1 8 


00 


. i , . 

341 




LDA 


ADD r Y 


923D 


AA 






342 




TAX 




923E 


B9 


I 'J 

P T 


fin 


TJT 




LiJ A 


Ann -i- 1 v 

nUU T 1 ,T 


924V 


20 


4 4 


h V 


J I- 




■ CD 

JSR 


□ Ok IT* A V 

PRNTAX 


9244 1 


98 






345 




TV A 




9245 : AA 






J4o 




TAX 






A 1 


1 Q 








LDA 


(ADDX) 




r n 


a i 


nn 

93 


34 B 


BHD 1 


STA 


REG 




J D 






J4V 




PHA 












■Ten 


AfKchog« en binairo 




AO 


fi c 
vE 




•"j r ( 




LDA 


£$E 




□ < 


24 




352 




STA 


CH 






no 

08 




qr n 

353 




LOX 


£$e 




*\y 








8HD2 


LDA 


£S0 




U t 


8 i 


D T 

93 


ICC 

355 




ASL 


REG 


n'Tiri 


n * 










ROL 






on 


b 3 


FD 


397 




JSR 


PRHEX 


b 


1*" A 
LA 






I5h 












r A 




ncn 
Ml 




BNE 


BHDS 










360 


A«ichage en HEX A 






1A 




ESQ 




LDA 


££1A 


9263 


85 


24 




TAT 




STA 


CH 




J B 
OB 






363 




PLA 




9263 


o r™i 

8 D 


01 


93 


36J 




STA 


REG 




■ 20 


DA FD 






JSR 


PRBYTE 










WO 


Aftichoge ASCH 






A 'I? 

. A* 


25 




36/ 




LDX 


£$2S 


9268 


OA 

86 


24 








STX 


CH 




A L ' 


n i 

B 1 


93 


369 




LDA 


REG 


l fJ7Q 


Lt 


8A 




370 




CMP 


£S8A 




r.'i 

1 u 


21 




371 




BEQ 


8HD4 


I 1' IT J 

9274 


C9 


8 D 




372 




CMP 


£S8D 


7*/6 


rn 

n# 


1 D 




373 






BHD4 




/v 


E D 


FO 


J/4 


BHD3 


JSR 


COUT 










■>7*i 

j/d 


Aff khaw en decimal 


927B 


A9 


IF 




J76 




LDA 


£51 r 


927D 


85 


24 




377 




STA 


CH 


92/F 


20 


4B 


F9 


J7H 




JSR 


PRBLNK 




A A 

A V 


IF 




37V 




LDA 


£S1F 


MA j 




24 








STA 


CH 




A9 


00 




* j it 
Jr. ■ 




LDA 


£S0 




A L 

At 


81 


93 






LDX 


REG 




*U 


24 


ED 


3S3 




JSR 


LINPRT 




Ofl 

zU 


66 


FC 


3^4 
-' -- 




JSR 


IF 


|M i 

t 2 » i 


A* 


66 


FC 


MS 




JSR 


IF 


t274 








366 




RTS 




7/TJ 


A *. 


AO 




JH7 


8HD4 


LDA 


£SA0 


□ t c i 




DF 








iff Nl 


BHD3 










3S9 
i or*, 


ROUTINE DE 


SAUVECj 










Ten 








'* '7 


a ra 
A 


81 


CO 


"J 

■J V,! 


SAUVE 


LDA 


$C081 


QTCV 
T*7\i 


A L* 


81 


CO 


393 




LDA 


$C081 




AV 


00 




394 




LDA 


£S0 


92A1 


85 


3C 








STA 


$3C 


92 A3 


A? 


40 




HQ/ 

396 




LDA 


£$40 


92A5 


85 


30 




397 




STA 


*3D 


92A7 


A9 


F7 




Ton 




LOA 


£SF7 


92A9 


85 


3E 




TOQ 




STA 


$3E 


92AB 


A9 


43 




! U U 




-DA 


£$43 


92AD 


85 


3F 




JAY 




STA 


*3F 


92AF 


A9 


00 




402 




LDA 


£S0 


9261 


85 


42 




403 




STA 


$42 


92B3 


A9 


00 




404 


SV 


IDA 


£$0B 


92B5 


85 


43 




405 




5TA 


$43 


92B7 


38 






we 




SEC 





Pour Mt.M2.M3.JUU... 
...affidhe I'adress© 



REG serf de mernoire de travail 
On sau voqcirdc A 

On se positioane co(onne >5 

C'«* parfl poor B tours I 

On d£eato un coup 6 gauche 
On r^cupere dans A,,. 
.._cf on afficho 



On r A cupere la valeur... 
...pour fa metlre en A... 
,. r ar I'gffichar ! 



On commence ppr orfacor ca qull y avail 



,.,©t on af^rch© 



& RESTITUTION (fkhe TREMPL1N 3) 



Icl protllez-en pour corriger la f lche 



Memoiire a|u&l^e auJvani ma&que 



48 



92&B 

928E 

93BF 

92C2 

92C4 

92C6 

97CR 

$2CA 

93CC 

92CE 

92D0 

92D2 

92D4 

92D6 

92DA 

92DB 
92DE 
92EI 



92E4 
92E7 
*2E9 

92 re 



92EC 
92EF 
92 M 
92P4 

92 F6 
92F9 
92FB 
92FD 
92FF 
9301 
9303 
9305 
9307 
9309 
930 C 
9300 
930 E 
930 F 
9312 
9314 
9317 
9318 

93 IB 
931 D 
9320 
9322 
9324 
9327 



r 20 
: AD 
S 60 
: AD 
: A9 
S 85 
: A9 
; 85 
: A9 

: 85 

■ A9 
: 85 
A9 
- 85 

: A9 

: 85 

i 18 

: 20 
: AD 
I 60 



9328 
932B 
932D 
932F 
^3.2 1 



11 C3 
82 CO 

80 CO 

00 

3C 

00 

3D 

F7 

3E 

00 

3F 

00 

42 

04 

43 

II C3 
82 CO 



AO 02 

20 A7 FF 

AS 3E 

A6 3F 
60 



- AD 83 93 
: FO 27 

: AD 00 CO 
; 10 FB 

8D 10 CO 
: C9 9B 

FO 10 
; C9 8D 
; FO 11 
: C9 95 
1 FO ID 
: C9 AO 
; DO E8 
; BD 83 93 
: 60 
: 68 
! 68 

: 4C 17 90 

: A9 00 

S 8D 83 93 

- 60 

I AO 00 CO 
; 10 FA 
t 8D 83 93 
3 30 D4 
\ A9 01 
a 8D 83 93 
: 60 



20 9D 91 
A9 18 

as 23 

A9 07 
85 25 



407 
408 
409 
410 

411 
412 
413 
4 

416 
417 
418 
419 



421 

422 

423 

424 

425 

426 

427 

423 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

4M 

459 

460 

46) 

462 

463 

464 

465 

466 

467 

463 

469 

470 

471 

472 

473 

474 



: Idem correction 



JSR $C311 

IDA SCO 6 2 
RTS 

CHARGE LDA $C080 

IDA £$0 

ST A S3C 

CGA LDA £$00 

STA S3D 

LDA £$F7 

STA S3E 

CGB IDA £$00 

STA $3F 

LDA £S0 

STA $42 

LDA £$4 

STA $43 
C1C 

JSR $C311 

LDA $C082 
RTS 



ROUTINE DE SAISIE DE VALEUK HEX A 



BUFI 
BUFFI 



LDV 
JSR 
LDA 
LDX 

«rs 



t$2 

CETNUW 

A2L 

A2H 



ROUTINE P'ATTENTE DE CARACTERE 
ET D'AJUSTEMENT DU MODE 



KEY 
KEV 1 
K€Y2 



KEYS 



KEY4 

KEY5 
KEY6 



KEY7 



IDA 

BEG 

LDA 

EPL 

STA 

CMP 

BEQ 

CMP 

BEQ 

CMP 

BEQ 

CMP 

BNE 

STA 

RTS 

PLA 

PLA 

JMP 

LDA 

STA 

RTS 

IDA 

8PL 

STA 

6MI 

LDA 

STA 

RTS 



MODE 

KEY6 

KflD 

KEY! 

STROBE 

£$98 

KEY3 

£S8D 

KEY4 

£$9S 

KEY7 

£$A0 

KEY1 

MODE 



(NIT 
t$OQ 
MODE 

KBD 

KEY5 

MODE 

KEY2 

£$1 

MOD* 



SI ESC on sort 

Si RETURN — MODE = 0, iroce sons orr*t 

Si FLECHE d DROffi! — 1> MOM ■ 1 , pass* sons ex« 

5« ESCAPE — » MODE quekonque — » Pa* o pa* 



ROUTINE D'EDITfON DE LA PILE 



PILE JSR AFFICH 

LDA £$IB 

STA WNDBTM 

LDA £$7 

STA CV 



On r^taWii la fonoHe 
! On se place au sommor 



TKEMFUN MICRO 



9333 


20 


7? FC 


47S 




- j n 


V 1 Mt3 




- AD 


Ww 


** / o 




i r t l. 


ttl 
- _i . . 


■ 


i H5 








CT A 

■5 1 


v. ?1 


933A 




4fi F9 


47B 






P BR4 tJk 

r n,Di-i^ , i\ 


933D 


: A9 


03 

w ■» 


479 




IDA 




933 F 




24 








r" w 


9341 


■ A2 


00 

w V 








I. i J 


*~ 


?L"i 

• * w 


or FD 




Pti Ft 


j j pi 




9346 
- - 


- 9D 


00 0? 

V w w it 


4A^ 




S I A 


INI X 






ED FD 






J 3n 






* C9 








rJup 




9346 


: F0 


IC 


4An 

- - 




f 1 F O 


PIL F2 


9350 


- re 


V w 








r, 300 


9352 


■ w 


22 


... ig 






Pll PI 
ILL-- 


9354 


- CO 
CQ 








IU V 

1 1*3 A. 










49PJ 




f*P V 








FA 

E n 


^* » 




□ hi c 


Pll PI 
nit i 




■ A 9 


Q L.' 


SO 7 




i n a 




935B 






• g ■■; 




O r r\ 


in , a 




AQ 


QQ 

WW 


*■-*?.' 




i nv 

LU T 






20 


A7 FF 






JSR 


r^PTNl IU 
1 1» 


ltfu - 




J u 






1 flA 


A"5l 


9365 


: 48 




497 




PH A 






- P A 








lev 

OA 




9367 




49 


Ma 




J 1 




MAO 


4T 


CO r iJ 


•Jtf w 




1 hA P 


Pll F 

rut 


■-' ■ _* ■ _ 


i v 




501 


Pll F"7 


1 i"i : 

L kSr*i 


Ei — 1 J 


936E 


i B5 

1 w J 












"t r *m 




48 F9 






■4 w n, 




9171 




1 7 90 


- j 1 -! 




1 AA P 


l l -J l l 


9376 


B A 








1 JA 




9377 


cv 


FF 






f py 
LrA 


: i l ' 


937*? 


FQ 


A D 


-11 1 ' 






PI 1 F 




• FA 




-•i'i - 




Ira A 




937C 


9A 








TVS. 




9370 


B6 

» w 


49 


S 1 CI 

■ w 




*ITX 

■«# ■ y\ 


jr i*i i 


937 F 


: DO 


A7 


511 




BME 


PILE 


93QI 


** w 




512 


B r G 


w> r D 


dna 

w w 


9382 


: GO 




5T3 

w I- w 1 


IND 


DFB 


WW 


9383 






514 


MODE 


DFB 


00 


9384 


w W 

00 


00 00 

W w ww 

00 00 












00 


00 


SIS 


SV1 


DFB 


00, 00, 00 


938C 


GCJ 
00 


00 00 
00 00 












00 


00 


516 


SV2 


DFB 


00. 00, 00 



. On attend 3 taracl&re 

; On 1© slock© dans 1e butler 

: On I'afffich* 

! Est-ce ESC ? 

; si ou I on sort 

: E$t-c* Fl&th* a gauche ? 

; si Qui on ctepiJe 

; 2 earodfrr** ? 

; r><?n — 13 on va cbercher ie 2* 

; oul — j> RETURN pour "marquor" lo fin 

; Or* r£eupfcre la voleur... 

; ...dans A-., 

: .ft on Pempilcr 



Sortie cf» Edition 



lei on dvpilo 



; AAomoiro-s do- travail 
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Sauvo9ordpd-«$18a Si F 



Sauvegord&MI .M2,W3,M4 



TABLE DES SYMBOLbS CHORE AI.PHABETIQUE 



■A3H 
AfFl 
AFF5 
9C13 . . 

BLPFF 
CH 

0€BUT 
HCtP 
IND , , 

iNrrA . 

fNIT«3 

WITV - 

JSP 

KLYI 

KEY5 

IF . , 

WON 



S003F 


PCAOJ3 . 


. Sf 954 


JNIT . . 




ACC i . . 


. i'J-LM5 


PCH ... 


SP93B 


INIT2 


SW63 


$»1D« 


PCINC3 


3^968 


IN1TM , 


$ MCI AD 


AFFJ 


59?50 


PtlE 


£9328 


IMITM2 . 


$9ffOC 


*9227 


Plt£5 ... 


S936C 


INJTP 


J90B7 


BCLI ... 


. $9rC4 


PRBlNK 


$F94 9 


(NITX 


S9w7t 


$9VF7 


PRHEX 


SFDE3 


INJUMP 


$9i;c 


BHD . . . 


- $923* 


PROMPT 


S0933 


Jhf&TR . 


. $9141 
f»3T2 




REG , . . 
SAUVE - 


. $9381 


JUMP 


■ *917D 
. S92F6 


BHD* . . . 

CG A . . . 


. 59395 
. 592C6 


RESTOftC 
SPNT .... 


. $FF3F 


KEY 
K&Y4 


$wilS4 
*90FA 


UP 


SC0I0 
$FC1A 


KEY6 
UNPRT 


. $931S 
SED24 


COUf . . - 
GE7LN . 


$FQCP 
. SF&6A 


5VI . 


$W?3 


LEMGTH . 
MODE 


. $O02F 
S93B3 


J9w93 
wV362 


XRTI 

A2L 


$9i$e 


NBREL 
PCAOTS 


. $9155 
- $*956 


HOME 
INIT1 


, $FC3fi 
S903E 


ADD 
AFF4 . . 


$0010 
. $9233 


NEWPCL 
PCtNC2 
PILE1 . . . 


$91 B6 
$91*6 
. $934 i 
SfODA 




Af-f? 


*9FF5 


PCL 


. $vw3A 


INUMI 


S90GD 


&CL2 , 


*9)CE 




AFFlCW . 


$91 W 


PILE3 , 


. 19376 


INI7S . . 


. S9wAA 


QH0\ 


$^4a 


PHBVTE 


*907C 


aEu 


*Ff3A 


PRNTAX 


. $F94I 


IN5TD5F 


SF800 


B*»EAK , , 


$91 5B 


RDKtY . . 


$FOOC 


S9172 


6MD3 . . 


$9270 


REUAT 


|?I3Q 


KBD . . . 


$cooo 


CGB .... 


$9K€ 


RETOUR 
STATUS 

5V2 . . . 
XKKi 


S9163 
$044« 
S93BC 


$93F1 
S93 ' .' 
SFC66 


BUFFI 
CMARGt 
ECIN . . 


$92£4 
$V?»F 

&9m 


SAVE . . , 

sv 

VTAfi 


SF-MA 
S92B3 
SFC22 


KEV3 
KEV7 . . . 
MA&OUE 


STOOP 
$932? 
19447 


CV 

GtTNUM 
IN 


S0335 
$FFA7 
<Q2Q0 


SFF65 


HEIP 




VflEG ... 


S0Q47 


MEW1 ... 


$91 9 A 





GUY-H ACHETTE 



VISU.CH 



Ce court programme en Basic 
vous permettra de charger 
VISU.PUCE dans de bonnes 
conditions. Rappebns que ce 
programme ne tourne que 
sous DOS 3,3. 



100 
110 
120 
130 
140 
15Q 
160 
170 
180 
190 
200 



HI MEM: 36863: HOME 

REM 

REM Chargement de VISU-PUCE 

REM 

PRINT CHR* (4)"BLQADVISLL0BJG H 
PRINT CHRt (4)"BL0ADMAS0UE.A»40Q0' 
POKE 36864 ♦ 690,208: CALL 36864 + 
PRINT CHR* U) H BLOADHELP 4 A«4Q00' 
P0KF 36864 - 690,212: "ALL 36HM + 



663 



663 



POKE 10J3,?6t 
CALL 36864 



POKE 1014,0: POKE 1015,144 



ITlQCE CCTfllRrit'E 



fTCTURfl 

x=7e 
y = ir 

F-FE 



s 

34 : C Hi* :■ i 



Pepr i 
F I net 
Place 
Place 
P 1 ace 



au pes rib ci" 
lo veleur *5 
la valcur tb 
in ualew 1A 
i a valeur FE 
Hi 1 donne S e cent frm 
memo i re $1222* i OCM 
IB2* et »4. . . 

Ret: our au ntonitcLT, 
fctour a VISU-PUCE 
ear mowa ^fetufoi » 
Etiitiori oe la piles 
«- i tiepile une v 
e 34 - esc; »e-a«? com 



arret 
darts R 
cons X 
oons v 
cans P 

c*e la 

F*ur 
l« 

fait 



a I evr 



Kama 



E>CCUTIOn 



ESFPCE ; Execute instr. eb wane* 
RETUPiH I Execute instr. SODS or ret 
-» passe sans exteution - ESC: ret -our 



Pour terminer (egalement en 
utilisant le FAIRE.ECRAN de 
TREMPLIN MICRO n°l), pre 
parez-vous un ecran ressem- 
blant a celui-cK 

Vous le mdrnofiserez sous fe 
nom de HELP, pr&vu dans la 
routine en Bosk de Maurice 
Chavelli (voir ci-dessus). 



SAISIE DE MOTS 



INITIATION 



Si vous n'ltes 
plus neophyte 
dans I art 
de la 

programmalion 
en Basic, passez 
voire c hem in, 
□mie Lectrice, 
ami Lecteur, 
et abandon nez 
cette coorte 
rouline 

aux debutants. 
NESTOR 

TREMPLIN MICRO 



• [I 

110 

120 
130 
140 

150 
160 

170 

:8fJ 
190 

20 C 

2 1 5 
220 
230 
240 

250 
260 

270 
280 
290 



TEXT : PRINT CKR* <21>: HOME s DIM M»tSQ> r _ Tiifr , ^ nn 

INVERSE : PRINT ' SAISIE EN BASIC s NORMAL ( PRINT TAB< 
30 ) B INITIATION' * POKE 34 3 

VTAB 22: PRINT "* POUR CORRECTION - RETURN POUR FIN1R" 

V * N + 3: IF V > 20 THEN POKE 35,21 r CALL - 912: POKE 3S, 
23 :V = 20 



: IF N > 
AND 
" TAB( 



> 



1 



AND N > 
THEN 140 
M THEN 230 
■• THEN VTAB V; 



V* « * " 
IF M* = 
R3NT I" 

VTAB V: PRINT V9%Hi H 
IP M* ■ 
IF M4 = 
IF M* < 
IF H»(N) 
GOTO 240 
ff$<N) = MS 
VTAB V: HTAB 5: CALL 
N = N - ti GOTO 140 
GOTO 130 

VTAB 22: HTAB 21 3 CALL 
FIN ';: NORMAL i CALL 
IP M* = THEN N * N 



■ ■ 



9 THEN V$ 

V = 20 THEN VTAB 4: FOR I = 
5>M»U>: CALL - 868:V = 20 



N - 16 TO ti t 
NEXT 



- :K$(N>:i 
THEN 240 



HTAB 5r INPUT '"tMs 



CALL - 668 tN = N - It GOTO 26C 



- 868: PRINT M*CN): IF M* = u #" THEN 



if m 

TEXT 



< > CHRS 
: HOME 



(3) THEN 5 20 



- 868: INVERSE r PRINT 

- 198s GET M»: PRINT ■■ 
1: GOTO 240 



'CTRL-C POUR 
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NOUVEAUX MATE Rl ELS 



Faites-vous plaisir : 

off rez-vous les nouveaux produits ! 




UNIDISK 3.5 



■ IMAGEWRITER II 

Je rovois vue au Sfcob. Ell© nravait tape dans F'qhI. Je 
Pai connects sur moo Apple He (avee 65CQ2) ; elfe 
m"a compE&iemeni s&dutl. 

D'abord, etlc est riellemenf rapide. Ce n'esl pas une 
vue de i'espfit i 250 cps pour la quality dite "broulHon" 
(acceptable pour foul ce qui est listog-e}, 100 cps pour 
la quol it* s! ondord (bonne) et 45 cps pour le trait emenl 
du cogrrier (lent,., mats proche de la morguerilo). 

Introduction du papier, Installation du ruban (on peuf 
Faire de la couleur), tout est agrdoble sur cette 
!MAGEWR!TER IL entffrrement compatible (ou siode ou 
on son I mes essais) avec I'lmapeWriter normal* et la 
DMP. 

Vous oi-je parle du brurl ? non. Alors, sachez qu'il 
n'esf pos gen ant ! ilnsonorlsallon me paroii 
excellente. 

Autre point fori : la documentation est claire, precise, 
pariante. On salt comment effeduer ebacun des Tria- 
ges, 6 condition de prendre le temps de loul lire, bien 
sOr. Un madele du genre. Toulefoifr, je deplore que 
I on y escamote h problem© des eoratteres persanno- 
lis£s. Pourquoi ne pas joindre le second tome du 
Maw*/ do f'utilisateur. , . ou premier ? 

Apple poraTt ignorer que des mlllsers de gens ne so 
cont&ntent pas des logiciels du commerce et d&irent 
yrogrammer eux-memes certain applications... 



Avec BOO Ko s«r seule disquet1e r nous sommes enfin 
en presence d'un vrol lecteur permeMant reellemem de 
irovailler ovec un Apple... ei son* talre obllgofolremeni 
appel 6 un disque dur 

Altention I j|1 vous ochelei un UNiDlSK 3.5, adressez- 
vous dun revendeur qualify car ; 
• le kii d'e*lension App!e Ik est indispensable paur laire 
fonctionner le Jecleur Unidisk 3.5. Touiefois r ce kit 
apporte divers avantages : rnini-assembleur, routines 
cssembleurs de debugging (STEP el TRACE}, un "Protocol 
Converter" pour les entries-soFlies de p^ripheriques sous 
ProDOS et PASCAL 1.3... olnsi que des routines de pile- 
logo du r&eau AppleTalk. 

Comment savoir si celte ROM exisle ? En Japonl "PR£7" 
sous Basic, Si voire Apple tfcr Apond 'AppleTalk Offline", 
■I esf I In pf#t pour recevcHr un lecteur Unidtsk $.5. 

Dans le cos contraire, failes-le 0p6rer ches votre 
concessionnaire. 

Sur un Apple He avec 65C02, rien b faire, si nan achetw 
une carle controleur speriale (675 FH.Tju 

A noter que iVnidisk exige M Ko de mimorre pour fonc- 
tionner. Sous Pascal, fl foul dssposer defa version 1,3. 

Tenez I sur une seule disauette, j ai renire, dans les dos- 
siers TM1, TW2, etc. fous les programmes parus dans les 
cinq premiers numdros de Tremplin Micro... et ce n'est 
pas termine... bicn que je me sois aussi offert le luxe dy 
placer ProOOS et Bosk-System I Un detail : Avec un 
Unktisk ei Moose D*sk on se regale I NESTOR. 
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GUYHACHETTE 



flllMHl 



UTIL1TAIRE 



CONVERSION 

DECIMAL, HEXADECIMAL, BINAIRE 



E programme en BASIC fait neanmoins appel 6 une routine en langage machine, 
II vqus permettro de convertir des valeurs dans les modes de numeration les plus 
utilises : DECIMAL. HEXADECIMAL et BINAIRE, 



PRINT CHR$(21) vous fait 
passer en mode 4Q 
colonnes, si I' Apple eloit 
en 80 colonnes. 

CLEAR fligne 1 10) annule 
fouies les variables du 
progiamme. Nolez qu'un 
SUN o le memeelfel, 

Les POKES de la ligne 
!f&) ecrivent directe- 
ment sur I'ecran les 
corocteres en mode 
FLASH, puis NORMAL. Le 
premier coroete/re de la 
ligne esf h I'odresse 1024 
el il est done facile de 
conrvaitre les adresse? 
du D, du H, ef du B (que 
Ton a rnises en DATA. 6 
ta ligne 760). 

Essoyez de comprendre 
vous-meme le pourquol 
des diverse* interdic- 
tions, au cours de la sai- 
*i* des voieurs {29Q a 
360) I C'est fort tnte- 
ressanl... 



100 TEXT : NORMAL s PRINT CHRS £21): GOSUB 720 
110 CLEAR s HOME 
120 t 

130 REM *** AFFICHAGE DU TITRE jjft, 
140 ! 

150 INVERSE i PRINT "CONVERSION^ DECIMAL HEXADECIMAL 61 

NAIRE" t NORMAL 

160 FOR 1 - 1 TO 10 :T* = T* + * "i NEXT 

170 POKE 16369.0: READ P.V; IF P = THEN RESTORE t 

GOTO 170 
180 POKE P,V + 64 

190 FOR I = 1 TO 15:8 = PEEK (49200) 

200 S = PEEK « - 16384) : IF S = V + 64 THEN 260 

210 NEXT 

220 POKE P.V: GOTO 170 
230 ! 

240 REM Mm SAISIE DU NOMBRE **« 
250 : 

260 PRINT : PRINT i CALL - 868 

270 VTAB 5: PRINT "NOMBRE *ti INVERSE I PRINT CHR4 (S): 

; NORMAL : INPUT ■ "SNS 
200 L = LEN CN*> 

290 IF (S = 66 AND il < 4 OR L > 16)) OR fS = 66 AND ( I 

NT CL / 4) < > L / 4)) THEN 270 
300 IF S = 66 THEN 320 

310 IF L > 4 AND S = 72 OR L > 5 AND S < > 72 THEN 270 

320 FOR I - 1 TO L:M = ASC < KID* (Nt.I.l)) 

330 IF S = 66 AND <K < > 48 AND M < > 49) THEN 260 

340 IF n > 47 ANO M < 58 THEN 370 

350 IF H > 64 AND M < 71 AND S « 72 THEN 370 

360 GOTO 260 

370 NEXT 

380 : 

390 REM »*# BINAIRE EN DECIMAL ### 
400 i 

410 IF S ■ 66 THEN P = 0: FOR I » L TO I STEP - 1:V = 

VAL i MID* <N*.I.1)>:N = N * (V * 2 * P):P = P + U N 



■immw m i M imM 

TREMPLIN MICRO 



EXT :N* * STR* (N) : GOTO 440 
420 IP S = 72 THEN GOSUB 540: GOTO 440 
430 N = VAL (N»> 

440 B = INT <N / 25€>iA = N - B * 256: POKE 6.B: POKE 7, 
A 

450 VTAB IS: PRINT T»T»t VTAB 7i PRINT T*T»t INVERSE t F 
OR I ■ 8 TO 16: VTAB 1 1 PRINT * * ; : HTAB 40: PRINT * 
■j NEXT 1 NORMAL t POKE 32,3: POKE 33,36 

k 
l 

NEW #«« DECIMAL EN HEXADECIMAL ftftM 

■ 

VTAB 12: PRINT "HEXADECIMAL: Wtt IF S = 72 THEN PR 
INT N»: GOTO 570 
CALL 768: GOTO 570 



460 
47C 
480 
490 

-J. J 
510 
520 
530 
540 
550 

560 
S70 
580 
590 

600 
610 
620 
630 
640 
650 
560 
670 



660 
690 
700 
710 
720 



REM *** HEXADECIMAL EN DECIMAL *«* 

f 

N* = RIGHT* CCOOO" + N»J.4J:P = 

FOR I = 4 TO 1 STEP - ItV •'■ ASC C HID* <N*.I,1J) - 
48: IF V > 9 THEN V = V - 7 
N = N + <V « 16 * P)sP = P + 1 5 NEXT I RETURN 

PRINT : VTAB 10s PRINT " DECIMAL: "J 

CALL 775 



REM #*# HEXADECIMAL EN B I NAT RE #*# 
PRINT : VTAB 14: PRINT * BINAIREt « 

i 

REM *** ON CONTINUE OU PAS ? #** 



CALL 782 



730 



740 



*50 
760 



POKE 32,0: POKE 33,40: VTAB 21 t PRINT 
PRINT : VTAB 22: PRINT *<1> ENCORE <2> MENU DISQUETT 
E <3> FIN ":: POKE 1745,49: POKE 1756,50: POKE 1775,5 
Is GET R*i PRINT 

ON VAL CR*> GOTO 110,690,700: GOTO 670 
PRINT CHR* <4> P RUN MENU- 
HOME : END 

i 

POKE 768. 165: POKE 769, 6t POKE 770 , 166: POKE 771 .7* 
POKE 772,76? POKE 773.65: POKE 774,249: POKE 775,165: 
POKE 776, 6t POKE 777.1661 POKE 778,7: POKE 779.76: P 
OKE 780,36: POKE 781,237: POKE 782.165: POKE 783,6: P 
OKE 784,240 

POKE 785,3: POKE 786 > 32; POKE 787.23s POKE 78B.3: PO 
KE 789,165: POKE 790,7s POKE 791,160: POKE 792-8: POK 
£ 793.10: POKE 794,72: POKE 795,169: POKE 796.176s PO 
KE 797.144: POKE 798,2: POKE 799,169 
POKE 800.177: POKE 801,32: POKE 802,237: POKE 803,25 
3: POKE 804,104: POKE 805,136: POKE 806,208: POKE 807 
,241s POKE 808,169* POKE 809,160? POKE 810,32; POKE 8 
11,237: POKE 812,253: POKE 813,96 
RETURN 

DATA 1037,4,1045*8.1057.2,0.0 



Notttz (ligne 440) com 
ment installer une valeur 
decimals sur 2 octets... 
fees valeurs sant repri- 
ses par la rauline en tan- 
gage machine], 

POKE 32,3 s POKE 33,36 
(ligne 450] prot&ge le 
cadre de presentation. 
Quand vous ulittsez ces 
pokes, it ne Iau1 jamais 
que leur total depasse 40 
(en 40 co tonnes) ou 80 
(en 80 colonnes). 



L©4 POKES de la ligne 
670 font la m£roe chose 
que ceux de la ligne 
180 : lis aflichent le* 
chiHf es 1 , 2 et 3 en mode 
INVERSE- Cest pluseourf 
que d indiquer tautes le$ 
regulations et chantje- 
monts do mode. 



Lei ligne* 720 h 749 In* 
roll en r uno courte rou- 
fine en Jangage 
machine. Poor la lister, 
apres un premier RUN, 
fapez CALL — 1 SI RE- 
TURN, puis 300L.. et 
vous obilundrez les 20 
premieres lignes, d£sas- 
semblees. Un autre L, 
suivi de RETURN, vous 
permettra de lire lei Wit- 
van tes. Si vaus avez 
dabord tape PRE! , vous 
les imprimerez au fur ef 
6 mesufft. 
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GU Y-KACHETTE 



LA CONVERSION ? 

c'est dans la poche ! 



CRfcER des routines personnels de conver- 
sion, soit en Basic, soit en langage machine 
(ou en associant les deux, camme nous venons 
de le foire dons "HDECBAS parait evidem- 
ment constituer, pour des mordus de la program- 
motion, fa demarche ideate, mais [utilisation de 
telles routines pose parfors des probl&mes. En 
fait, 31 arrive toujours un moment ou el est impos- 
sible de les installer a t'adresse pr^vue... a cause 
du programme en cours de realisation, par 
exemple, Est-on coince pour autant ? 




Ne serait-it pqs plus simple d'ufiliser une caltula- 
trie* ? Ou quel que PC mi* au rancart ? Qui ne 
passede pas, dans un placard, avec une pile- en 
train de rendre l r fimo, un PC 121 1 (Sharp) ou une 
FX-702P (Casio) ? Vrar, vous dies dans ce eas-|& * 
alors, vous n'avez jamais connu la fibrllitA des 
debutants que nous f times, anxieux dobtenir, de 
ces rnervei Ileuses petites machines, des pro- 
grammes evidemment g4niaux t Dommage... 
pour vous. 

Les fabrteanls n'insistent pas assez, dons les 
annonces publicltoires concefnanl leuFS calcula- 
trices seientifiques, sur le fait, pourtanl Ir&s 
important (du mains pour les utilisateurs d'ordi- 
nateurs personnels), que certaines d'entre el les 
outarisent, e1 d'une mani&re on ne peut plus Aim- 
pie, Soutes les conversions : blnaire, octate, deci- 
mal* el hexod^ci male- 
Chez Sharp, c'est le cas de la £1-525, une machine 
sola ire semi-portative trite performanle. de la 
EL-545 (toujours avec le soleil, mais en format de 
poche) et, enfto, de (a EI-506F, que j'ai essayee,.. 
el adoptee. On peut se la mettre dans fa poche 
sans probl&me. Vous vaus Toffrirez pour une 
petite paire de billets de 100 F, mal* so pile ne 
sera pas inusabks, 

Comment (a march e ? Ne me dites pas que vous 
ne lirez pas la documentation que Sharp, prt* 
voyant, vous present* dans cinq langues {468 



pages... dont 1/5* d'utiles... quel gaspillage !}. 
Saehez pourtant quelle repondra cloirement h 
toutes vos quest ions (parce que, en Ire nous, la 
Sharp EL-506P, elle est capable de calculs autre- 
ment plus compHquos que vos bonales conver- 
sions). Mais encore ? Je vous llvre un secret. Soil 
$6152 a convertir en valeur d#cimale, puis en 
binaire ; jenfonce la louche 2nrfF (c r est la seule 
qui sqit orange), puis HEX..- mais zyeuiez plutot i 

2ndF HEX 6152 2ndF DEC 24914 2ndF BIN 

...ef un E, h gauche, qui m'indtque — et il a bien 
raison — que ma merveilleuse machine ne peut 
afficher que... 10 thiffres. Mais entre nous, que 
vouiez-vous fa ire de seize I au Q ? 

Un nouvel essai, mais celte fols avec une valeur 
r olsonnoble , prouve que , ef f eetivement. £ a 
marche : 

2ndF HEX F7 2ndF DEC 247 2ndF BIN 11119111 

c'est bel et bfen gagne f Me voila 6quip£ pour 
poquer 6 loisir r et sans jamais me tromper dans 
mes conversions I 

Ceci 6tanl, cet outtl gfoftre aussl des nombres 
aleatoires, possede les fonctions trsgonometri- 
ques, Mgonemdtfiquos inverses, logarlthmkques, 
exponent ielles. permef les calculs de percenta- 
ges, les conversions d'angle /temps , des calculs 
sfotlstiques, etc, Bref, c'est tout beau ! 

NESTOR 
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i nm vug 



ProDOS 



CONVERSION 

mais en langage machine 



SI voua ne possedez 
pas dassembleur, 
tapez seutemero. ces 
59 octets, aprks on 
CALL— 151. 



8389: 


26 


38 


83 


8 393: 


20 


42 


FC 


6396; 


28 


38 


03 


0389s 


A? 


A4 




03BB; 


26 


ED 


FD 


838E: 


A2 


j fi 




03102 


20 


75 


FD 


63131 


28 


C7 


FF 


8316: 


28 


A7 


FF 


033 7: 


AS 


3E 




031B: 


18 






031C-. 


65 


3F 




831E: 


F0 


00 




6328; 


A6 


3E 




8322: 


A5 


3F 




8324i 


20 


24 


ED 


8327: 


20 


42 


FC 


B32AJ 


4C 


86 


63 


8 3 2D: 


4C 


62 


FA 


8338 t 


A? 


13 




6332 i 


85 


25 




8334: 


28 


CI 


F8 


8337 1 


28 


62 


FC 


■0 33A: 


40 






5AUVEGARDE : 


65 AVE HDEC. 




A$3Gfl,L$3& 





8 
1 

2 
3 
4 
5 
6 
7 
8 
9 
18 
11 
12 
13 
14 
15 
16 
1? 
18 
1? 
28 
21 
22 
23 
24 
23 



28 
2? 
38 
31 
32 
33 
34 
35 
36 
37 
38 
39 



* CONVERSION 
* 

ORG 

LINPTR EQU 
BASCALC EQU 
CLREQP EQU 
CR EQU 
NXTCHAR EQU 
COUT EQU 
GETMUM 
ZMQDE 
RESET 

#- 

w 



D'UN N0M8RE HEXADECIMAL EN NOMBRE DECIMAL » 

« 



EQU 
EQU 
EQU 



$388 

♦ED24 ; A-Hiche X tt A en hexadecimal 

$FBC1 ; CaJcule 1 'adresse de base 

*FC42 j Ef-faeement -fin de la page 

*FC62 ; Envois un retour char<ot 

*FD75 ; Lire le prochain earactere 

tFDED | Sortie de car act ere 

$FFA7 ( Rlcupere yrv ncwbre hexa 

$FFC7 | Met a Zero-Mode t*31) 

*FA62 ? Retour Applesoft avic Bip 



INIT 



JSR 


Posi t i on 






JSR 


CI reop 


! 


Prwui *r* ut i 1 i sat i on 


JSR 


Po5 i t i on 






LDA 


£$A4 


fi 


*A4 * dol 1 ar 


JSR 


Cout 


&' 
1 


Mi i chagt du dol lar 


LDX 


£t80 


! 


Regi stre X m I * 4 ziro 


JSR 


Nxtchar 


t 


Sai*»e du n ombre he 


JSR 


ijraade 


i 


Hi %9 a ztro du Mods 


JSR 


Getnum 


i 


tt recuperation du nbre h*xa 


LDA 


«3E 


s 


contenu dans *3E et 


CLC 




t 


(attention t en additiotine) 


ADC 


*3F 


■ 


*3F wa gross ir Cpu pas) A 


BEQ 


Sor t i e 


■ 
■ 


<si 3E*3F <> on continue) 


LDX 


*3E 




X est charge auec *3E 


LDA 


$3F 




et A auec *3F pour atler A 


JSR 


Li nptr 


i 


qui afficht le norobre hexa 


JSR 


Clreop 


■ 


Ef4acem*nt (Clrtol conuenajt) 


JMP 


INIT 


i 


Et (a recommence 


JMP 


Reset 






LDA 


£$13 


t 


»13 = IJiftt 19 




$25 






JSR 


Bascalc 




Cal ctil i ndi spendable 


JSR 


Cr 


i 


Pour slier ligne suivante 


RT5 




I 


Retour i 1 'enuoyeur 



MODE D'EMPLOI 



Pour une utilisation avec & (Ampersand) taper POKE 
1013,76, POKE 1014,0 et POKE 1015,3. Ensuiie, avant 
chcqua utilisation, il suffiro d& taper "&" 

Un r6&ultat IdenHque sera obtenu av*c un simple CALL 76fl • 
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Vous avez ecrit 
aTREMPLIN MICRO 




• Je vous signal* un r 'bug" dons le programme 
CAiENDRlBfUW de T,M. n a 5 : h ligne de tints 
s'imprime aur Jes rwms ahreg&s des jours de h 
semaine. Il tout, aux lignes 315 et 320, supprimer 
hi IF,.. etc.". II y a ovsst un autre "bug" qui, sf I'on 
demande plusieurs ddition* da calendrier (4 mote 
par ligne}, indique un mouvais sout de page a 
I'imprimante. Id, je n r aipos trouve le remede. 

Ctovrf* * f'J3W>* MA ft Still 



Le programme loncfionne normalemenf, ma«* 
avec une certaine eonflQurotion de I'impri- 
mante. Dans un cos comrne celul-ci, il est plus 
facile de modifier le programme que de 
reconfigures rimprimante. Ce que vous avez 
fair, Par eonlre, le saut de page est effocNve- 
rnent mauvois. Remplaeez le CHft$(l2) de la 
ligne 255 par le nombre de PRINT correspon- 
dent 6 voir* format de papier. 



• Bravo pour voire revue qui vevt se mettre a la 

portee de tous, debutants campris. Mais dites, pour 

voos, un dibutont, e'estquoi ? 

CALL da droit au menton, PEEK du gauche au hie, 

#er/e de POKES a la face et ce "chien" d Apple qui 

mmsulte, mo femme qui me bat (ou le controire), 

Nestor qut rit en diaant fasloche*.* 

S'il vous ploft, une petite page pout debutant... 

dibuioni, ef ainsi eclairer notre machine de son 

langage.-. 



Vous nous dites aussl possAder TOUS les 
nurneros de TREMPUN MICRO. Alors, de 
grace, comptez les pages r-esetv^es oux debu- 
tants... ef diles-nous quelle autre revue (con- 
socree 6 Apple) en a aulant fait,., en &■ peu de 
numeras, 

Sons sea CALLS, PEEKS et POKES, le Ba*lc 
Applesoft perd de son intfffci.., et n'y gagne 
cerles pas ©n rapidite II faut absolument les 
connaTlre et s'en dresser une petite liste (il* 
ne sent pas nombreux d'ollleurs). Notez que 
nous rappelons sou vent leur fonction. 
No tuez pes le chien pouf auloni, S'il oboie. 
cola prouve qu'il manque encore defection ! 



TM 



* Impossible d'tmprimer avec ma SEIKOSHA-GP 
IQQA et on Apple lie, mate uniquement quand je 
5UJ5 en 88 colonne* (je possede h carte 80 colonnes 
normale et to carte Chat Mauve). Avec utt PR£f et 
un programme fin 40 colonnes tout vo blen. Par con- 
ire, en BO colonnes et mime en prenant la precau- 
tion de toper un CHR${2l), fo sephnte ! 
Precisian i man interface es1 une APPLE, 

Si Tun de not ledeurs, equips du mime mate- 
riel, connail une solution, qu'il se melte en 
rapport avec TREMPUN MICRO. 

• Je possede la version ProDOS 8.5, mals jen r ai pas 
la doc. Or, sur cefte disquettQ, II f a un editeur-as* 
sembleur (EDASM} plus ou moins auto-docomente. 
Malheureusement, je ne $ais pas m en servir et r 
quand fe tope vos programrnes r je prdf&re pourtant 
taper les commanded.,, phtot qu'une suite ininte- 
ressanfe de coc/es, apres un CALL — 75? J'espere 
que vous ne me rdpondrez pas que je suis un 
m4chant pirate, car f'ai ochete cette disquette, en 
mime temps que mon APPLE, a un porticulier qui 
n dvait pa$ to doc 

Est-il possible, pour votre programme MOUSE- 
TIMER, de $ubsfituer le foy$tk it la sauris ? 

Lo version B5 (DOS 3.4) n'esl pas compatible 
avec EDASM 1.8 et la documentaJion campfe 
240 pages. Ceil dire quelle est Indispensa- 
ble ! Essayez done votre EDASM *ous ProDOS 
1.0 et. si celo ne fonctionne pas, il ne vaus 
restera plus qu'a vous procurer (contre e»p&- 
ces sonnonles et frebuchantes) "ProDOS 
ASSEMBLER TOOLS' d'Apple (prlx raisonno- 
ble). MOUSE-TIMER utilise la corte souris, 
mais surtout pas la souris (lajssez^a dormir si 
vous vous servez de ce petit ulititaire). Out, 
les manoMes de jeux sonf ufilisabie* 6 la 
pJace de lo sourls cf nous vous \e prouvons 
av#e un programme, dans ce numero de 
rHEMPLIN MICRO, 



m 



SUITE DU COUHftlCR (PAGE 6S) 



TREMPUN MICRO 
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Vous avez ecrrt 
a TREMPtIN MICR O 




• Je suls debutant en micro-informatique. Void pfu- 
sieurs questions : 

— Si f'oi bien compris.. une volevr PEEK correspond 
6 cheque touche du clavier. Laquelfe ? Qvelles soot 
cetles des deux POMMES, de la barre d'espocement, 

etc, ? 

— Quand ferex-vous paratire un programme trans- 
formant le clavier de man Apple en clavier d'argue 
4fecfronique ? 

— Comment r4ali$er I'lmpression des grapbiques 
de vas programmes HISTOGRAMME, ViSUBLOCS, 
etc. ? 



• Ne pas confondre PEEK et voleur ASCII dun 
coroct6re. Quand on tap* PRINT PEEK{768), on 
demands a I 'Apple (plein de bonne vof-ortt-A, 
non ?) d'aflidw la valour decimate cantenue 
dans la case 11*768 de la m-6moire. D*s comrne 
cela, ily «rn a 65536. 

Pour connaiire la valour ASCII (d^cimale) de 
ehaque caract&re, taper les lignes sutvonres 
et f aire RUN 

Tfl HOWE ; VTAB 12 : PRINT 1ETTRE — GET L$ 
20 PRINT A5C{l$)f ":: G£T U : PRINT : GOTO 10 
On en sort par RESET. 

• La mustque, II y en a d*J6 eo... et nous y 
reviendrons. La place manque. 

• Avec ce nurairo, c6\b capie HGR r nous 
r^pendans b la quesJion ! 



* Programmeur debutant, je dispose depute peu 
d'un Apple tie avec 65C02 + carte feline (ext. 88 
coL + J28 K — covteur) r 

1° Toutes lea indications figurant dans I* llvre 
Clefs pour Apple Hc"deMme Breaud-Pouliquen 
(Ed, du PSI) sont-elles applicable* a un Apple He 
equip4 du processeur 65C02 ? 

go Pourriez-vous publier dam voire revue un pro- 
gramme qui avec ProDOS permette de lister le 
catalogue des fichiers d'one disquette avec ia 
fonction CAT (ou une commande annexe b inti* 
tuler CAT,2 ou CAT.3) non pas sur un seul 
groupe de calannes mats [en mode 80 colonnes 
bien stir) sur 2 ou 3 groupes de colonnes afin 
d'ovair sur une seule page Scran, 3 fols plus de 
titres de fichier* , cheque fichier ne comportont 
qite son nam (15 caracteros}* le type de langage 
(3 carocfires} et le nombre de blocs utilises par 
fichier (3 caracl4re$} -f les espaces entre 



cheque rubrique, salt 3 X 26 = 78 colonnes, 
Je crois que ce type de programme {que je suis 
encore incapable d'icrke)^ interesserait de 
nambreux utilisaieurs non chevronn&$ comrne 
mcl. 

3° Lorsqoe je cople certains programmes person- 
nels dune disquetfe sur une autre, a I'aide de to 
dlsquette utiiisateur ProDOS ou via la m&moire 
vlve par fa commande SAVE et que fe v&rifie par 
la $aus commande ' d Comp0rer flchiers" de la 
disquette utiiisateur ProDOS si ces 2 tichiers 
sont identiques, la repanse que j'obtiens e*f 
"FIchfofB non Identiques"' et ceci quel les que 
salent to disquette source et la disquette desti- 
nation (j'ai fait de nombreux esMis different*}. 
Jul bien sur evite d'utiliser des nams de fkhiers 
fnterdits. D'autrepart, it m'arrive, toujour* dons 
le cos ci*de$$u$ r si par exempie, un programme 
6 copter occupe 17 blocs, de voir opr&s copie le 
nombre de blocs utilises ougmenter non pos de 
17 blocs mals de 2 fois 17 blocs alors que je n'ai 
copl4 le fichier qu'one iois ? 



* Tous lea lie »! He avec 6SCG2 sont compati- 
bles (Apple dixit), y compris ToHichage en SO 
colonnes... quand on s'affre la carte BQ colon- 
nes Vendue, 

* CA TALOGUE : voki un exempie de catalo- 
gue sur 3 eolonne*. On pent trouver mieux, 
bien entendu, moia en y mettont \e pr\x* 

19 TEXT ;D* = CHR* (4>: PRINT 
D*"PR£3' :H = S :V ■ 1 i DIM F*' 
108) ,BL4< IBB) £ PRINT 0* M PR£FI 
X"! INPUT C*s PMWT WOPEN-C 
,TBIR B : PRINT D* H READ B C^s 
NERR GOTO 17 

15 FOR I = 1 TO 3: INPUT BOF*; 
WEXT : FOR I = 1 TO 52 x INPUT 
F^<t>if<(]) - LEFT* CF-KI), 
28>sBLt(]"i = RIGHT* (F*(l),3 
) s NEXT 

I? PRINT WCLOSE- tl « I - 3:01 
= INT (1 / 3>i IF DI • 3 < 
1 THEN DI — DI * 1 
23 FOR J * l TO Is POKE I483 t H; 
VTAB V; PRINT LEFT* <F$U) 9 
281 + BLf< J>:U = U + I 3 IF (J 
/ DI> * INT <J / 01 > THEN 
IF H < 5* THEN H = H * 26jV = 



3@ 



1 

NEXT 



x '/TAB 20 r END 



• Vatre traisieme question nous lais» per- 
ptexea, Horn ne comprenons pas. Ah I Si 
r*ous avions vq$ disquettes, vo* program- 
mes-.- et voire ProDOS I 
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* fef-j/ possible de recupirer lo voleur 
de$ 2 printouts retnis d z&o avec /7/w- 
ttvction NEW, . . et comment ? SI voos 
avei le temps, pourriez-vous m'aider ? 

A tata F {27000 EVKCUX} 

R^ponse ci-contre. N'en profiler 
pas pour vous offrir une centame 
de NEW successes : nous n'avans 
po& 6te aussl loin dons nos test* I 

* Comment peut-on lisfer le catalogue 
dune disquelte farmate'e DOS 3-3 ou 
PASCAL... quond on est sous PraDQS. 
sans passer par les utiHtairea SYSTEMS ? 
Merd do bien vaotair me trouver une 
solution. 

Qvl se cadre sous le norn de NESTOR ? 

Patrick C (2752Q BOUffG-nfiWOUtOi) 

• Une id&e de programme [b r^ali- 
s&r)... pour ceux de nos Lecteurs 
qui maTlrlseni parfaitement le DOS 
3.3. PASCAL... et ProDOS ! 

• NESTOR, t'est LE SAGE, en deux 
mots, qu'on se Iodise ) 



• J'al ochett on Apple If Plus, et jo n'oi 
pas pu trouver un manuel de references. 
Par contre, je peux acheter celui du We. 
Puisne le faire, ou ovei-vous une outre 
solution ? 



TM 
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Oui, mais vaus aurex des surprises. 
II e*t probable que do vieux 
monuels tl+ tralnent en France- 
Peut'6tr© pourriei'vous fouiHw 
dans les rayons LIBRA IR IE de frvnga- 
siii« eomme SIVEA, ILLEL, *le. 



* Comment connaftre le nombre de sec- 
tour* disparities sur une disqueite Pro- 
DOS, pendant le fonctionnement dun 
programme {want yn BSAVE fichier, par 
exemple} ? De plus r apres un HGR2, 
comment, en mode direct, voir ce que 
I 'on tope ou clavier (pas commode, dons 
fe noir absolv, de foire un BtQAD 
FICHIER > AS4Q0O !) ? 

JVr F , (WMST-tfAN-Ot-MQNW 
TREMPI IN MICRO 



Apres un NEW malencontreux 
SAUVE 

Tout n'est pas perdu... si, immediatement apres I© 
NEW malheure-ux, voua tape? un heureux BRUN SAUVt 
(qui vous fera retrouver votre programme). 









1 


N 












2 




ORG 


9300 








3 


# 












4 


INDEXL 


EQU 


*5E 








5 


INDEXH 


EQU 


*5F 


ii vous n avez pas 
d'a$sembleur. lapez 
seulement les 60 
oclel* d-dessous. 


6 

7 


TXTTABL 
TXTTABH 


RUU 

EQU 


S67 
$68 


8 
9 


L0MEML 
LOMEMH 


ECU 
EQU 


469 
$6A 








10 


BELL 


EQU 


SFF3A 








U 

* m 


if 




300: 


AS 


67 


12 


PRCS 


LDA 


TXTTABL 


302: 


A4 


66 


13 




LDY 


TXTTABR 


304: 


85 


5E 


14 




STA 


INDEXL 


306: 


84 


5F 


15 




STY 


tHDEXH 

■ ■ m v m^J ill 


308: 


20 


IE 03 


16 




JSR 


RECPROG 


30B: 


A9 


03 


17 




LDA 


£3 


3011: 


IB 




18 




CLC 




30 E: 


65 


5E 


19 




ADC 


INDEXL 


310: 


65 


69 


20 




STA 


LOMEHL 


312: 


AS 


5F 


21 




LDA 


INDEXH 


114? 


69 


00 


22 




ADC 


£0 


316: 


65 


6A 


23 




STA 


LOMEMH 


3t8i 


20 


3A FF 


24 




JSR 


BELL 


3lBr 


4C 


FS D4 


25 
26 


* 


JMP 


•D4F5 


31E: 


A9 


01 


27 


RECPROG 


LDA 


£1 


320: 


AS 




28 




TAY 




321 : 


91 


SE 


29 




STA 


< INDEXL) .Y 


323: 


AO 


05 


30 


BCLA 


LDY 


£5 


32S: 


Bl 


5E 


31 


BCL1 


UM 


< INDEXL) .Y 


32?: 


C8 




32 




I NY 




328: 


DO 


FB 


33 




BNE 


BCLl 


32A: 


C8 




34 




INY 




32B: 


98 




35 




TYA 




32C: 


18 




36 




CLC 




32D: 


65 


5E 


3? 




ADC 


INDEXL 


32F: 


85 


5E 


38 




STA 


INDEXL 


331: 


90 


02 


39 




BCC 


BCL2 


333: 


E6 


5F 


40 




INC 


INDEXH 


33S: 


AO 


01 


41 


BCL2 


LDY 


£1 


337: 


Bl 


5E 


42 




LDA 


£ INDEXL) .Y 


339: 


DO 


E8 


43 




3NE 


BCLA 


33B: 


60 




44 




RTS 





BSAVE SAUVE, AS309. LS3C 
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Vous avez ecrit 

a TREMPLIN MICRO 




1 ° Le nombrq de BLOCS disponlbles vous est 
donne par : 

L - 280 — (PEEK(4882S) + PEEK(48829) * 256) 

2° Processus : HGR2 : TEXT : BLOADFICHIER. 
A$*00<3 : POKE 49237.G . POKE 49232 
(do cetie moniere, vou$ retrouvere* 
intact vgtre ecran HGR2}- 



• Comment fouver 6 In his programme et rdpnnses 
pour tout conserver et retravailler destus par fa 
suite {sous ProDOS) ? 

Autre question t si j* rtiussis 6 hire bouger (par 
effacement couleur} points et lignes, comment ani- 
mer one figure plus complete ? Exlste-t-il un logi- 
clel adequat ? 



• L» SED !ou DOS.,, ou ProDOS) s© charge de 
conserver les variables avec I' instruction 
STORE, ulilis^e comme SAVE, sous ProDOS. 
RESTORE permetlra de les recup^rer. Avec le 
DOS 3.3, (1 tout ufiliser un ftchier binoire... et 
cannartre t'adresse de debui el de Jin des 
variables, ce qui est plus complexe. 

SAlSrE 

10 HOME 

20 FORI = 1T05 

30 INPUT "DONNEE — > ":M$(I) 

40 NEXT 

50 PRJNT CHRS(4) ' STORE ESSAI" 
Taper un RUN. el saisir les donnees. 

RESTORE 

Apres memorisation, taper NEW et cea j 
10 HOME 

20 PRINT CHR$(4) "RESTORE ESSAi" 
30 FOR J = 1 TO I — 1 ; PRINT MS(J) : NEXT 
" Seul le langage machine assure de bonnes 
animations par utilisation des transferfs 
d'oetels, VIDEO WORKS est un logitiel com* 
pi el en la motlire (Hayden). 



* J'Qt parhis un "Syntax error in 65928" apr&s un 
simple SAVE ou CAT. Pourquoi ? Comment y rem&* 
dier sans eteindre mon Apple ? 

J. ms/«w rou^ 



TM 



nreur r^sulie souveni de quelque POKE 
matonconfreux* II foul entrer dans le monlteur 
par "CALL — 151". puis relancer fe systeme 
avec : 4 3EAG (DOS 3.3) 1 3DGG (ProDOS) 



* Comment tran$f4rer une page graphique HGR2 en 
HCR, per one routine en Basic ? J'ai essoye one 
baucle. mass e'est interminable ! Pourquoi ne pas 
inserer des pethes annonces dant* T AA ? 



• Essayez le (court) programme d-apras 
10 HGR 

20 PRINT CHR5I4) "BLOAD WORLD MAP. PIC, 
A$4000" 

30 A$ = "3000 > 4QO0.5FFEM D823G'" 

40 FOR I = 1 TO LEN(AS) : POKE 511 + I 

A5C(MID$(AS.U}) + 128: NEXT : POKE 

72 P ; CALL — 144 
50 REM ET VOILA LIMAGE 

* Poor le* petite* annonces... ta question 
reste en suspens. II faudroii, pour les rendre 
inl^ressontes que TM. parolsse tous tes mais. 



* Lorsque vous presents* cfes programmes de ges- 
tkm d'affichoge. vous le faites toujour* en 40 colon- 
nes r quitte a faire ensuite un nouvef article pour les 
SO colonnes. Je sots bien que e'est economiquement 
inferessont car le meme corps de programme sert 
deux his, mats qui. ti I'heure actuelle ne dispose 
que de 40 colonnes ? Je pens* que la gronde majo- 
rity des onciens possesseurs d Apple lt-f~ ont dijd 
resolu ce genre de proWime... et vous visez mani- 
festerrtent un public de n£ophyte$ r 

PTtr* <S. {42ir</ Sf-JUST-ST-KAMBltlT) 

"Economiquement interessanr" ? Et vous con- 
naissez les differences qui existent enlre les 
gestions 40 et 80 colon nes I Vaus nous prete* 
des colculs qui nous chagrinent, chez Lecteur. 
De ptus, vous vous trompex. II n'est po* forci- 
ment ogrdable, pour bon nombre de gens, de 
traveler en 80 cofonnes, a cause d une llsibt" 
lite qui esl loin d r 6tre excellente. Et pourquoi 
$e fatiguer les yeux sur des caracteres minus- 
cules quand on peul realise lo mime lecture 
(ou saisie} en 40 colonnot 9 Enlin, je vous 
signale que tous les possesseurs d'Appte r-'an" 
pas forcemenf les moyen* de s'offrir, du 
mains la premiere ann^e. one cor(e 80 
colonnesr 

• Peut'On ef facer la RAM par un simple ordre 
BASIC sons passer par des (PRINT CHR$(4) : 

"DELETE/RAM/ Autrement di' exiffe-r-// un 

"CLEAR'' bete et brutal de la RAM qui conterveroit 
tntactes les autres zones (mimolre et program- 
me) ? 

La Notice de fimagewriter peche beaucoup par son 
manque d'exemples d'application. Aussi je n ot tau- 
jaurs pas compn's fentre Quires J comment fixer fa 
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Vous avez £crit 

a TREMPL1N MOO 




longueur de poge et les marges hautes et bosses. Si 
vous pouviez m'indiquer les caract&re$ de com- 
mand? d envoyer pour avoir par exemple i 

— interligne : 6/inch 

— longueur papier : 10.7 inch 

— marge haute ; 1 inch 

— merge basse : 2 inch 

je vous pramets ma reconnaissance eternelfe. 
APPLEMENT VOTRE. 



m 



La /RAM est un volume ProDOS qui se com- 
parte comme tout autre volume et il n'existe 
pos de fonctions pour I'lniilaliser. Le ProDOS 
est un Systdrne structure comme I'UCSD du 
PASCAL et il fauf des utiliiaifes sur disqueites 
poiir le gerer, II est v^ritabletnent lo version 
profess ionnelle du DOS 3,3 et peuf e1r© utilise 
avec un dlsque dur. tmaglnez les sulfas mal- 
heureuses d'un INIT DISQUE DUR acciden- 
tel ! Le programme ci-dessous,. qui est In edit, 
peut eventueSiemeni vous rendre service. 

100 REM EFFACE /RAM 



I 10 
120 



135 
\36 
137 
140 
150 



190 
195 



200 
201 
202 
210 



D$ = CHR$(4J: G$ = CHR${7): DIM 
F$(6G): TEXT : HOME : PRJNT D$ PRE- 
FfX/RAM"; PRINT D$ J 'CAT ,r 

REM LECTURE FICHIER DIRECTEUR / RAM 

ONERR GOTO 190 

PRINT DS'OPEN/RAM.TDHT: PRINT 
D$"READ/RAM": FOR I = 1 TO 51: INPUT 
F$(l): NEXT 
PRINT D$ rJ CLOSF' 

IF I = 4 THEN PRINT G$G$: INVERSE : 
PRINT ' RAM VIDE I"; NORMAL ; GOTO 
500 

REM TRI 

FOR J = 4 TO I — 1: F*(J) = LEFTS 
(FJ(J),I7): IF LEFT$ (F$(J)-1) = CHR$(32) 
OR LEFTS (F${J),1) = CMR$(42) THEN FS(J> 
= RIGHTS (F$(J), LEN (FS(J)) - 1): PRINT 
DS' UNLOCK "F${J) ; PRINT D$ "DELE- 
TE"F$(J): PRINT OS;; NEXT : HOME : 
PRINT D$ r, CAT": PRINT '7ERMWE P: 
PRINT 0% 



300 INVERSE ; PRINT "FICHIERS'V- NORMAL : 
PRINT " : M :; FOR J = 4 TO 1 — 1: HTAB 
20; PRINT F$(J) NEXT . PRINT : HTAB 20. 
PRINT ? effaces P 

500 END 



• A quoi serf un "CH8f(J7)", trouve apr&s un 
PR£2" ? 
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CHR$(T7) fait passer I'Apple en mode 40 
colonnes r mais sans d&saeliver lo carte? 80 
colonnes... que Ton retrouve intacle par un 
CHRS(IS). 



* J'ai bien oim4 voire (court) article sur les impri- 
mantes ; j'aurais oppr4cl4 ce consul! il ya cinq mois 
lors de I'ochat de ma "SCRIBLE" ; car bonjour la 
"doc", apr&$ 30 pages de dechilfrage d'amdricain, 
ton arrive toot juste £ placer correctement le papier 
et le ruban... 

Quant aux possibility graphiqvet ou caroctere$ 
speciauxj j'en su/s toujour* d 'lo case depart'', II y 
avoit pourtant bien "voguement egar4e" 6 ta fin du 
manuel une feuille explicative,, . mois DUR t OUR I 

I APPLE- H Conclusion «d vendren I 

ti serait bon que vous mettiez en garde les tfven- 
fuels acheteurs de materiel APPLE des possibility 
et du prix... car 6 Strasbourg une tMAGEWRITER 
coute I5O0 Frs plus cher qu'd Paris. Un "simple" 
APPLE WORKS coute S 200 Frs de plus (prix Stras- 
bourg 3000 Frs T.T.C), 

Vous pourriez aussi nous parler davantage des hgi' 
dels. En continuant man exempfe de llmprimante, 

II est impassible de mettre un accent circonffexe 
meme avec APPLE WORKS, „ En "bidouillanr j'ai 
trouvf, mois CAMBRONNE futde la saisle... 

Je ciois en V4ftf£ que beaucoup de lecteurs chef' 
chent des trues simples (e'est man con) par exemple 
un utilitaire pour faire des "MENU" sur un APPLE lie, 
Je lance (?) juste taire f ou 2 pour tancer un pro- 
gramme du "CAT"... Au post t quel temps de gagne 
pour faire d'autres petifs trues ! 
Cela *&*t+*il ? Mkhmi SHAaui tiAU, 
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Pour ce qui est de la premiere partle do voir* 
lettre. nous sommes ouverte 6 loutes les sug- 
gestions. Les Imprimontes Apple sont livrees 
avec une doc en Francois et. d'aprfcs NE5TOR. 
celle de la nouvelle Imagewriter II c*t extra, 
Faut-ll reellemeni pubfier, dons Tremplin 
Micro, des programmes de 10 ou 20 lignes, 
semblobles a un iota pres. aux cenfaines que 
I'on frauve dons lous les bouquins d'inHia- 
tion ? Lo que«fion est pos£e. A vous d"y 
rApondre, amte Lectnce, ami Lecleur... At 
seule raison d'etre de lo revue ! 
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i 



DEMO 



DOS 



PfoDOS 



: 



LAN GAGE MACHINE (INITIATION) 



LA MULTIPLICATION 



CE court programme de demonstration nous montre, sur ecran, commenl trailer !e pro- 
bleme de fa multiplication.., en langage machine. Attention 3 le resultat doit tenir sur 
un octet et ne doit done pas depasser $FF (255). Le multiplicands est slocke a I'adresse 
$6 et lef mulliplicateur a I'adresse $7. Le r^suttat sera lu... a cette mSme adresse $7. 



110 
120 

130 
MO 

150 
160 
170 

180 
190 

200 
210 
220 
230 



TEXT : PRINT CHR* 14VPR£3" 
FOR I = t TO lOsT* = T* + • 
PRINT T*t INVERSE J VTAB h 



HONE : GOSUB 430 

NEXT 

"LA MULTIPLICATION 



VTAB 



M POKE 
PRINT J 
PRINT : 
3 6": 
INVERSE 
H ■ 16: 
L* = * 
1100 

FOR I = 1 TO 99 
PRINT i PRINT s 
[NT "1001 1100 
VTAB 23 t PRINT 
\W?.V'J¥. -- for : 



1403, 79* PRINT "l 
PRINT *SoU la mx 
PRINT ' 12": 
PRINT ■ + 12 'i 
: HTAB 14: VTA 3 



: PRINT 
t NORMAL 
UplicaUon:* 
: PRINT M X 13°: 

i PRINT ■ ■ : 

7: PRINT *»C": HTAB 



EN LANGAGE MACHINE* 



PRINT 



PRINT ■ " : PRINT " 

PRINT '= 1 5 6" 

14: PRINT "»D*t NORMAL 



7: 
1 



HTAB H 



1100 



1101 

10011100" 

STEP It! HTAB Hi PRINT HID* (L*,I,il): 
PRINT I PRINT "FINALEMENT, LE RESULTAT 
aoit "fl INVERSE l PRINT *9C n ;t NORMAL 
'PRESSER ONE TOUCHE SVP *$i GET R*; 
• 4 TO 21 5 VTAB li HTAB 32; PRINT 



MOO 



1100 



POKE 32. 35: 
PRINT -HEME 



POKE 33.45t POKE 34,3: POKE 35,23: PRINT 
TECHNIQUE EN LANGAGE MACHINE:" : PRINT "~ 



NEXT 

EST:": PRINT : 
; PRINT "- 156" 
PRINT "" 
"t NEXT : NORMAL 
HOME 



PS 



240 


PRINT 


i PRINT "A9 0C 




LDA f*0C : Multiplicand* d 


250 


PRINT 


"85 


06 


STA 


*06 




et stock* en 6, page 0" 


260 


PRINT 


*A9 


0D 


LDA 


l*0D 




Wuft lp I Icateur dans A" 


270 


PRINT 


-85 


07 


STA 


*07 




et stock* en 7. page M 


200 


PRINT 


"A9 


00 


LDA 


f*00 


* 


Initial l sat ion de A" 


290 


PRINT 


■A2 


08 


LDX 


1*00 




Inlt. X (compteur)' 


300 


PRINT 


'46 


07 


LSR 


*07 


+ 


Premier dicalage" 


310 


PRINT 


■90 


03 RET 


BCC 


DEC 




Si la retenue eat 0" 


320 


PRINT 


'18 




CLC 




* 


ArmutaUon de retenue" 


330 


PRINT 


"65 


06 


ADC 


*06 




Ac=Ac + Mul t tpllcande" 


340 


PRINT 


-6A 


DEC 


ROR 




t 


D*c*tage de rAccunu* 


350 


PRINT 


'66 


07 


R0R 


*07 


• 


puts de *07" 


360 


PRINT 


"CA 




DEX 






x ■ x moins r 


370 


PRINT 


"DO 


F5 


&NE 


RET 




Encore 91 paa 7*ro* 


380 


PRINT 


"60 




RTS 








390 


POKE 32,0 


POKE 33,80: VTAB 


23: HTAB 1: PRINT ■ P 



Voui llroi. dans un 
pro-chain numdro cflv 
Tramp IS n Micro* las 
(*portii*t aui qudi 

tio#i» qua tuselfa-ra 
colt a pa go , volon- 
taS romont sued ncto 

Huemt m/x axptfca- 

tlans. 

R*FI*cfcls*«9 — a* 
lnl«rrog«z 1 



* 



GET R* 



E CETTE DISQUETTE, PRESSER LA TOUCHE <M> COMHE MENU 
400 TEXT l HOME I IF R* < > M# AND R* < > 'a* THEN END 
410 PRINT s PRINT CHR* (4>*RUN MENU* 

420 REM CES DEUX LIGNES 0NT PLACE LB PROGRAMME A L' ADRESSE $300 
430 FOR I = 768 TO 793i READ A: POKE I. A: NEXT t RETURN 

440 DATA 169, 12, 133, 6, 169. 13, 133. 7, 169, 0,162, 8. 70, 7. 144. 3,24. 101. 6. 106, 102, 7 
.202.208.245.96 
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Un outil indispensable 

MOUSE 
DESK 



ProDOS 

PLUS 

SOURIS 



Je suis conouis par MOUSE QESK t Pun des 
re-cents prodults de Vofiton Scrfl, Pourtant, 
ll ne m'ovalt pas reellement enthousiasme 
lors d'un premier essai, sans souris, sur 
Apple rre.C'erait gonial, bocru, ,, mai* je n'en 
compronais pas lellement ('utility, 

J'£tals persuade quo Version Soft et Apple 
reunis s'lng^nialertl, av<K Mouse £><?$■(<. 6 
nous foire avaler la philosopMe du Uoc.t 
pour rwui omanor a ocheter cotfe machine 
J'aurais pu rosier sur COlte idee. Le logiciel 
conservajf son caract&re gonial. 

Mais je me suis oHert I* Unltflsk (pcffo^ta- 
menl : ohlert). On lira par oilleurs ce que 
Nn%tor pense de ce nouveau leeleur- Jo por- 
tage son opinion : c'est extra, mois avo< 
Maus* Desk, cela deviant tout a foil 
pratique. 

Adieu les autres ulllltairos PraOOS I Pour.ce 
qui est de transferer des programmes *t 
d'organiser une disquette, Mouse Desk 
comblero vos plus chers dteln. 

J a no suis pas un Ires chaud partisan do la 
saurls «t l| m arrive de chaisir tel logiciel... 
^implement porce qu'll for*tionne SANS LA 
SOURIS. Cote .MOUSE DESK, je * u i$ biert 
oblige de reconnoitre que la souris joue par- 
luitnmrin^ son role. Au-UO JOUie, Junb po.tl 
de tempi. toute la France possextera une 
version de cet excel lont pradtril I 



xise Desk 






Le nouvel 
anglais 
sans 
peine.,. 

et sur votre 
Apple ! 



Quit ne connoit pas, au mo ins de notn, la lomousO 
mdtriode ASSIMtL ? Qui n'a pas essay* d'approndre, 
avec oil*, une longue etrangere ? L'anglois, par exem- 
ple, ASSIMfi est vrolment I'une des metHodes les plus 
repandues... et dans ie monde en tier. 

II *sf agr^ablo do constator quo aes promoteurs vivent 
avec leur temps, lis on1 ulllis4 to disque, la cassette... 
et nous relrouvans les exercices d'auto-contrdfe sur 
disquotto, a Piniontion do* utflisolours d'Apple Ult'i ti< 
e\ tie. 

What is it ? Un logiciel — vous vous en dou1i« un 
peu ? — doni lo but est de vous fa«re assrrniler (le 
tormo est doublomonl bion ehoisl) un* centaino do 
points de gfammolre, oHh ey opho qu vacabulairo do 
l'anglois couranl. Comment ? En vous prdsentanl la 
regie cor respondent e et en vous proposant de faire 
dot oxordces d'applicatian (plus de 500 I ), 

Les auteurs ont prdvu l« pHncipaux cas dorreurs 
g^n^ralemenl rencontres a I la plupart du temps, io 
logiciel vous corrigef a en vous indiquanl votre faufe... 
ou alori — on no sou rait lout meltre sur une diisquefte 
— ll vous renverro 6 la r&glo, ,. ol ou livre. 

Ce livre, c'est precls&nenl Le aowo' onglai* sons 
porrto (560 pagos).., auquoi correspondent deja r on (e 
sail, dlsquos ei coisoftos, Quel est Tinteret d'exercices 
sur disquetle ? D'obord, I'aipoct visual, Alors qu'uno 
page de livre presenle les Intormalions de ta^on stat(- 
quo, sans roliof, I ordinoteur permet une exploilafion 
plus rolionnelle du arophismo, do lo nature des don- 
nees. el du lemps de pr&sentofion. 

L aspect ludique n'est pas h ngglloor. On jouo davon- 
Vago avec un Apple qu'avec un bouquin, rndme excel- 
Ie*n1, Toutefois, tl est certain que c'est surtouf la detec- 
tion des orreurs qui danne loul son mlere-t a ce nou- 
veau volei de la mtflhode A*$imiL L'erreur devient 
source d'onsAignornortl r 

fir of : uno bonno utilisation d'une rrvelhode qui a de|a 
fail ses preuvos, sur un mol4?iol qui n o plus rien 6 
pfOuvor : vo*ro Apple cheri f t~ -h 
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I 



Votre bibliotheque 
INFORMATIQUE 




* IE LOGO SUR APPLE 
(Mic/Naihan) 

On sail quo la LOGO a M confu par 
Seymour Papers et sei collaborateuri. 
II en ex(Ste un* version fran^aise sur 
Apple. et Harold Abclson, dans une 
traduction de Louis-Philippe Heberi f $e 
propose de nous la fake d&ouvrir. 

News somme* done en prfeencc dunf 
vroi* mithode, abondamment et judl- 
deusemenr itlu3rtr<te. avec urn texle 
qu on ne pevf po* Quollfier de contis 
mai* qui c le mirite de resier cloir ei 
agrenble a lira, 

J avoue avoir une experience fort lirni- 
tee de la pratique du Logo, une prati- 
que qui remanle h quelques annees. La 
lortue ne m* inspire guere.-. et mo doc 
personnel!* (en anglais) ne nVovah 
guere Incite b pers4vfrer dans un 
opprenfissoge que j'avais estrm* 
futile. Oepu^i, un ptu paftout, j'oi vu 
des entants jouer ov*c cefte lameuw 
rortue... el j'al compris que Seymour 
Paper* avail de bonnes raisans pour 
dilendreson langoge. 

C'«t vrai que I'on peuf apprendre 6 
aimer I'irrformatique en dessinanl et 
en manipulant des obfeti que Ton crte 



soi-m&ne. Or, II est Evident que. mal- 
gre I'apparente simpliate du logo, an 
a besain d'un guide, voire d'un excel- 
lent guide : Le Logo sur Apple remplira 
eerie fonction, 




cows 
et exerciaes 



ii:x xiAur.. 

,MMN> 



falgorithmique 

detdpntk|iiedlatlieori« 




• L'ALGQRtTHMIQUE, th to 
pratique 6 la theorfa 
{Cedic/Nathan} 

Attention ! Cesl du sAneux. Encore 
une methods ? Mieux : un tours avec 
ses exercices, celu* de G. Chaly el J. 
Vicard, un professeur de I'Unlverslie ei 
un maJtrenmistanl qui now livrent le 
product dune longue experience 

pedagogique. 

SI, tomme moi, vous succombei a la 
lacheuse tenlation de ne point Irop 
cherther a strudurer vos "program- 
mes" (grand mot pour designer de 
modestes "essd*" I), II est iur que ce 
couni souro vous domier de meillflu/w 
iddes... en Postal, que les oufeuri onl 
pr4crt6ment odopli porcc qu'il "pre- 
pare ('acquisition de bonnes habitudes 
de programmatton " (je les cite), 
Un d$la«l qui a son importance ! i'ai 
evaqud des exorcices", mai* j'a* ornls 
de pr^ciser que eeux-d son! largemem 
developpes. Ce ne som certes pas les 
li stages et solutions qui manquent 



• par NESTOR 

dans tef ouvrage, ticAfct ovec s*rieux. 
6 I'inteniron de letfeurs disirwf "etu- 
dier" rinformatique et non lo 

"survoler"... 

Vous saw, comme moi, que les Fran* 
fois ont la regrettable habitude de ne 
point lire les documentations occompa- 
gnnnt burs appcreils. On branch* 
d'abord et on regorde ensulle pourquo* 
le rrvoteur fume. Explication : il n'y a 
pas longtemps, lout Afa'it formule en 
anglais 

• UIH PASCAL (Cedk/Nathan) 

II y a aussi un sous-tltre : le longoge 
de la prograrnmalion itnucturee". un 
paint sur tequel l# monuel de Domini- 
que Piot rejoinl le pr^eddmt. co«sacr6 
a rAJgoritfimiqve. Moi, quand je lis 
quelques chaprtres de bouquins van- 
tant les myites dv Poscol, j'^prouve 
taujaurs une irrAsistible envie de bon- 
dir sur mon Apple cbiri, de lancor mes 
disquettes Pascal, de tortir mes 
mithodes..,, et de poursuivre ma Jor- 
mat»on, je suU m&me oll^ jusque-ld, et 
notomment grace 6 lire Poscol mais 
les compilations obiigotoires m'ogo' 
ceflt, el oussl le fail que j'al I impras 
sion d'etre mains libre qu'en Baisic. 

A« I ou ai'je mis lei pieds I Je sols, 
M le Pfo^esseur . quand | y aural entin 
pos gout, ne paurrai plus m en pas- 
ser, Le pire c est que vous avei sure^ 
ment roison... Peut-etre aurois-je 
be&oin de lemons parliculieres... mals 
revenons ou Nvre pour encourager \e$ 
gens sirieux, capaWes d'oubller leur 
fiosic U'ils n'en onl jamata Fait e'est 
encore mieux). b I'Atudief C'est u-n 
manuel d"utilisation du Pascal, je I'ai 
souligne d J emblee. II est mince et pas 
cher{13B pages environ!, mois on en a 
pour son argem . ce qui n est pas tov* 
jours le cas en mature d Wition, dans 
ledamame de rinformaltque. 
Les nuteurs de Cedk/Nathan ant bien 
travaille. Pas question d avoir to dent 
dure. II seraii navront que tant 
d eMoris ne se r^v^lent pas payants I 

N£5TOR. 
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Communications 



Version-Tel : le graph isme Minitel 
sur I'ecran de votre Apple I 

Smneau venu parmi tes fogiciets de comnrunkatfon, Vers/wi-FeZ presente one originality tiwlusive ; it pstle 
seul qui transforme vraimcnt un Apple en MirtHcl intelligent. Car 1 1 lui permel cfc m^moriser, d'l-mprimer et de 
trailer les -ieram du Minttcl* tout en conservani le grapheme des page* TefeteL H fuoctin-mw sur Apple It* 1 mais 
awssi, et e'est plus nouvcau, sur Ik. Voyez plutof...* 



L'linMlnif dtSlteu* de -communi- 
<iuen* dispose anuellemenl de 
de-uk, posttbilttes : 

— le mode ASCII, pour irarfenui- 
trv du lexlr i t.i !l jiwi s'etablrt a Id 
viltvn- HW OU 1iU0 hauds cf to 
gMphiwnes want escdwi Ccs* \i* 
mode standard drt mwr/wifdina- 
leiiPi uiilisanl hntrnatf et 
des modems. SeUwi to marturtes. 
fes earacleres *ont code* wr 7 ou 
8 bits, avec 1 <hi 2 bits de stop. Le 
rile de* logiriek consisle a accor- 
<ler les prworoles des deux mur.tii- 
no, a j^fw la liaison en assuranl 
afrit hape, memonsation ri impn-»- 

— femcde Tclefel : C'Ofjl le svm- 
danf adoule par to Ml pour pre* 
d'un millrw de EetmmauK Minitel 
,1ttuCi|lera«rt en service. La Unison 
s'etoblii i 1 200 hauds c&e snveur 
appelei et a 75 baud* cult 1 ' appr 
lam On diiposede plu*»eur% |eux 
de caraclc»rv dom on pwudo-graptiwmr 
conMilu^ d'une wiosaique de carnrs joint* 
mi disjoints Chaque caracterc pevrt QtK 
pi&erfp d'atlribuls defsnissanf vl cnule-ut, 
la oajteur du ionrf, le djgnniempnr. U taalte 
(double hauteur, dewbi* larfieur. dooMe 
tail'*! er quantity d\iutft>ch(>ses. t'objeetrf 
des HT is| clali : ttansmettfe Ik plus 
beaux ft taw pn*slMe* avec un minimum 
dr ilpies. Pour les aureur* dc bglc*eh, 
f '«1 un ventabte casso-lftr ! >l taut Inwrptf- 
ier cfs code* pour lei jfiVher... au les ell- 
miner, solulwn U plut retenue ju*qu r alnr* 
De pto. gfrer le mode bauds Hit 
<to machine* comnw ('Apple lit' malt. 
iuu)u r at maintonanl, conskwn* comrne 
qiicrsi-imposvWP, 

Veryon-Tel. dr* Version-Soft, rtsout 

endu moin* dc 1 000 T, il nckesslte te 
conhfturiHmm «J»vjnl«4 1 

— Appte He es tnodem .^pple-Sectrad 
I20Q75, Diaitekt: DM t.'Wi ou boilier 
Cbnvrrtrt a&soel^i un Mmltel (cede der- 
niLTC wlullon f>en , nplianl d'uliliwr le 
modem du Iwminai PTT), SI Ton souhaiU' 
lrn|»riin*!t l» grapftisme* TclrteL unp lH» 
gieWmcr est ™ip*nWbfe ; 

— Apple He equip*, en 4o1 2, d'une carte 
serie 5SC «\pple Idfc ptfference). de la carte 
Di'jitek^ «ii tlf la Siipercom MID. Memev 
fiiodems qu'avec h Eli 



i , chasseur d'lmage* 


_ »i 

Lun d t-vendrcds 


Service libratrie 


3erveur Tt Ittel 
^4 h sur 24 


Centre serveur Hifiitel 


Oialosufi direct 
chaque, r>de edi 


49-33-€€-8e 

Reftseigneitcnfes photo 


Mudiohone 
24 h rur 34 


43-33-23-23 

Journoi parl^i 


T- HISSES c-u 4- 


^HQ i Fir. ■ Cnuot 



On exemptc rfWOAM MiWlW imprimr jvrr V«s*0fl"W uriftw *ar im 
tt l rt une ^iMfclrVriyer, Cwf*ine* /orw# rie rryrfrur du .grd- 

ii/ie r nwi« J pcrJfJ aJn*l ofWwir mir ruiri a r.Wr ey>liWr*hn?. 

Pour uop <ms, uilhsaieur* d >M)plt Uc 
>onl f<Krtfrt& : Cest avec leur niiitfur* que 
VtfltervTd esl le plus faci le * ul^liser. Glis- 
w la dwquene. brawidir/ le modem, aJlu- 
mea;,-. vxhjs avez w Minliei 1 
Avec TApple He. les Milage* sont plus. 
Eonjcs car if faui d'atmnl pararnelrpr In carle 
R5-232. Nou> #vont une vcrskw s»nHi' 
minai*e <fci Version-Tel qua ne coinpwWli 
4i i«. uric Indication preciw rrulive jiu 
i^h^IW^ <fe fc fanwux ■4wrtche>" de la carte 
En fait r le iogickH gfrre tout lunpemc. 
poumi que rintpmjpleiP' SVV2 soit sur CHS' 
ef ?e pern inangtc ofwnl^ vers Tcrmlnaf. t\ 
n'y * doriL aucun souci a w fain? 
L'ulllisflhHW) de Vcrwofl'Tel ne paw gucre 
de problemes;. *n-anfc iMXit peu docu- 
nwntei et au (febut, on palaugt' im peu. 
Apres une prtlU 1 deml-heun? d'pwais tout 
devienl ev ident 

On d*$po«r de deux mode*. I m^tnow el 
lerniinal Le* communication* w low tou- 
|oun en mode terminal . 1'Appli* divjxp* 
dp 20 K pour memoriier le* pagf* TeJelel 
ici,uf> . quand cette capacity e>l jtlteinle, 
un hip signal* qu'il feur s.uivrtfardi'r tout 
ceJa %ur dtsquette. Les wrvouK Tetetel ont 
le chic pour iransfneliie des page* inuliles ; 
uwc Vprslnn.Tel, on jes faitdesllcra Hrand^ 
viiesse H •:.»! trip APRES, une h>t* U : uinniu- 
nicabon terminer. 

£n mode memoine, un p«it reviwe la 



carrununication pKKedenie ou 
toiK appd memorise Hir )e disque 
et tmprinvr le% pages 4en grasini- 
c|ur ou tiule), les rnemunsvr |en 
binjipe, letie ou paphl<|ue). ou 
•restruclurpf* en eliminaflt le* 
pl^cfl IndiHifiible*. 
I n mode jflpterttisttfp i^Joiid II 
e%i .fcctive. memoriie le* opera* 
Uonv eftectuecs et res 
renouveler, automrfitquemenl, 
tors. d r un appel fulur. Cette tanc- 
tion esl superior* i telle de b 
Cirb Ap(>U^Tnl : Veruon-Tel tienfl 
tompte des temps de ritoonse du 
servrur, qjui peuverrt done Mre 
variables d un apprf A ('autre, el 
raccourcit les sequemes, iani rin- 
que de pertv d'lrtfwnurtion, 

Pouiquoi trarwfomier un App*e en 
Mlnilel t l\nir enfegiitte les 
ecran*. KM iniprimer ou en 
pxiMire le% infomwlion* eswnhei- 
tot On peul ainH nfduin- Jes 
MMtfM de commumcafllon f n laisani rjefrler 
it*, p.iges a loute vilrvw pnut ks ralire une 
Jnifc (e telephone raccnxM, 
VerffpthTeJ Jail tout eel*, vile et blen. Lk 
graphiMnw Teldel w«i respectes. A quel' 
ques nuance> f*te 5 certains anriburls des 
ecrans Miniipl som oublies., comme le«iu- 
U|inewhl f tFrrtainescouleundefOKHbleu 
not.invmenl i ou le clinnotrmml Certalrw* 
MMk Teleie? seront done \tn peu main* 
IwJIes sur Apple que «ir WiniteL MCmr 
chose e^idrrmnerit A rirnpnmnrrtp... mal* 
VereiorvTH etai*l le pn?mier luRlclel pewr 
Apple otpable d'irnprimi'r lr% r^crans du 
Mimlel en mode lock* ou graphique. nous 
pardonnoni votontlers cette latune. 
Mjpux : VerUoovTei tall des economies et 
Ma m^me lusqu'i gerer de% remoiWeei sur 
l'lnwij(rWrit«r pour mettredeuK 4c/an$ cote 
j cole et consommrr rnoirrt de papiei ! 
Pow monnde 1000 F. VerVw-Tel va done 
dunrter des dites aux Apple He ei 1le qui, 
Hr^qu'a rnjlntenanl, iflnoralwit le* Kraphis- 
nwi Teletei, Cert un outlt faclh? a utill*er 
tapnH un pelii apprentissafie laulefois) « 
Ires- bien concu. En un mot, bravo I 
Cflte lacune* r renrrtton^ Tabsencc de 
nunwrotatlon auiomatique Id itoit fa\te son 
num^ro sownemeJ„ malheureusement 
Wfrflquee en partfc pif to laomrjs de* 
modems les plui m vogufL 



Chaque mois, 
le meilleur 
de la 

technique 
et de la 
pratique 4ej 
photo ! 
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